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Abstract 


A  modification  to  a  previously  developed  finite  element  for 
circular  cylindrical  shells  is  presented  and  its  linear  and 
nonlinear  stiffness  matrices  are  defined.  The  element  is 
tested  on  various  linear  and  nonlinear  problems  and  shows 
good  agreement  for  cases  which  have  already  been  investi¬ 
gated  with  finite  elements.  The  linear  bending  of  circular 
cylinders  is  extensively  discussed  and  the  element  displace¬ 
ment  field  is  checked  for  its  approximations  towards  the 
linear  bending  theory.  The  induced  stresses  for  rigid  body 
motions  are  studied  for  the  element  and  it  is  successfully 
tested  on  the  nonlinear  problems  of  a  pinched  barrel  vault 
and  a  circular  arch.  This  work  concludes  with  the  geometric 
nonlinear  bending  analysis  of  circular  cylinders. 
Recommendations  for  further  studies  are  given. 
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1 .  I n t roduct i on 


Since  the  development  of  shell  theories  around  1900, 
an  increasing  interest  has  been  shown  in  the  behaviour  of 
circular  cylinders  under  various  loads. 

Flugge25  solved  the  linear  elastic  buckling  problem  of 
circular  cylinders  under  compression  and  bending  by  using 
a  simplified  shell  theory.  The  discrepancy  between  his 
theoretical  results  and  the  loads  from  structural  tests 
activated  researchers  to  study  the  effect  of  initial  imper¬ 
fections  and  residual  stresses,  which  may  significantly 
reduce  the  load.  Another  problem  of  comparing  analytical 
loads  with  test  results  is  the  definition  of  appropriate 
boundary  conditions  at  the  cylinder  ends,  which  are  often 
selected  to  facilitate  the  analysis.  In  structural  tests 
similar  difficulties  are  encountered  with  boundary 
conditions.  The  appropriate  assessment  of  flexible  or  rigid 
boundaries  is  a  necessity  to  avoid  unexpected  collapse 
loads . 

As  opposed  to  the  failure  of  a  thin-walled  cylinder 
under  compression,  the  buckling  of  a  cylinder  under  bending 
occurs  after  large  elastic  deformations  take  place. 

*• 

The  deflections,  even  for  moderate  dimensions,  can  be  in 
the  order  of  20  times  the  wall  thickness.  Analysis  of  this 
problem  requires  a  large  displacement  formulation.  Short 
thin-walled  cylinders  under  bending  show  a  buckling  mode 
with  longitudinal  wrinkles,  whereas  cylinders  with  a  high 
length-to-radius  ratio  fail  due  to  ovalization  of  the  cross- 
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section.  With  increasing  moment  the  bending  stiffness  and 
the  section  modulus  are  reduced.  Cylinders  with  moderate 
dimensions  may  exhibit  a  combination  of  these  two  modes 
(Stephens  et  a/.38,  Flugge26)  which  complicates  the 
analysis.  With  the  assumption  of  particular  displacement 
functions  or  buckling  modes  the  limit  load  is  easily  over¬ 
estimated  which  explains  the  somewhat  scattered  data  from 
analytical  studies. 

In  the  last  few  decades,  thin-walled  cylinders  have 
been  used  extensively  in  off-shore  drilling  platforms  and 
aerospace  vehicles.  With  the  use  of  cylinders  in  space 
structures  there  was  a  need  to  reduce  the  weight  as  much  as 
possible.  This  led  to  very  thin-walled  structures.  As  a  con¬ 
sequence  the  elastic  buckling  problem  has  been  emphasized 
since  the  inelastic  buckling  prevails  in  thicker-walled 
structures.  One  of  the  latest  achievements  in  the  analysis 
and  design  of  thin  cylinders  are  to  be  seen  in  the  Skylab 
and  Space  Shuttle  programs  of  the  National  Aeronautics  and 
Space  Administration. 

The  motivation  for  this  study  lies  in  the  design  of 
circular  steel  cylinders  for  the  use  as  long-span  beams. 

Such  cylinders  are  often  used  for  surface  pipelines  which 
are  subject  to  large  bending  moments.  Another  application 
are  galleries  which  support  conveyor  systems  for  the 
transport  of  loose  materials.  These  long-span  cylinders  are 
primarily  stressed  by  bending  moments  so  that  the  present 
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study  deals  mainly  with  cylinders  under  pure  bending  and 
excludes  torsional  moments,  shear  forces,  and  axial  loads. 
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Following  this  introduction  a  review  of  analytical 
studies  in  circular  cylinders  and  finite  elements  for 
cylindrical  shells  is  given.  Then  a  modification  to  a 
previous  finite  element  is  presented  whose  displacement 
functions  are  based  on  an  assumed  strain  field.  The  stiff¬ 
ness  matrices  are  defined  and  the  solution  procedure  is 
described.  After  the  linear  test  problem  of  a  pinched 
cylinder  the  linear  bending  of  circular  cylinders  is 
discussed  and  the  approximations  of  the  element  displacement 
field  are  investigated.  Next  the  element  is  applied  to  the 
geometric  nonlinear  problems  of  a  pinched  barrel  vault  and 
a  circular  arch  under  single  load.  Then  the  strains  induced 
by  rigid  body  motions  of  a  cylinder  under  bending  are 
discussed.  The  strains  caused  by  axially  fixed  ends  of 
a  cylinder  under  bending  are  computed  and  the  nonlinear 
boundary  conditions  for  rigid  cylinder  ends  are  given.  After 
a  discussion  of  the  circumferential  stretching  associated 
with  the  linear  Donnell  solution  for  cylinders  under 
bending,  various  boundary  conditions  are  tested.  Finally 
the  results  for  the  geometrically  nonlinear  bending  of  two 
cylinders  are  presented  and  compared  with  results  from 
previous  studies. 
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2.  Literature  Review 


2.1  Analytical  Approaches 

The  buckling  moment  for  a  cylindrical  shell  under 
bending  was,  in  early  studies,  correlated  to  the  buckling 
stress  of  a  cylinder  under  compression.  The  classical 
solution  for  the  latter  case  was  derived  by  Flugge25. 

The  displacement  function  he  used  was  a  combination  of 
trigonometric  functions  in  the  longitudinal  and  circumferen¬ 
tial  direction.  With  the  assumption  that  the  stresses  do  not 
change  during  initial  deformations,  his  analysis  can  be 
described  as  a  linear  elastic  buckling  problem.  He  assumed 
that  the  displacements  are  infinitesimally  small  and  derived 
a  stability  criterion  using  the  principle  of  minimum  poten¬ 
tial  energy.  Neglecting  certain  strain  terms,  he  obtained 
the  critical  stress  6cr  for  an  axially  compressed  cylinder: 


(2.1) 


5c r  =  Et/R- [3( 1-v2 ) ]' 0  •  5 


(2.2) 


0.605  Et/R  for  v=0.3, 


where  E  denotes  Young's  modulus  of  elasticity,  v  is 
Poisson's  ratio,  and  R  and  t  are  the  radius  of  the  cylinder 
and  its  wall  thickness,  respectively.  The  corresponding 
critical  moment  for  v  =  0.3  is: 


Me r  =  0.605  rrEt2R. 


(2.3) 
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Brazier10  studied  the  flattening  of  long  cylinders 
under  bending  and  derived  an  expression  for  the  potential 
energy  of  an  infinite  cylinder  under  bending.  By  minimizing 
the  strain  energy  he  found  the  critical  moment  to  occur  when 
the  flattening  of  the  cross-section  reached  2/9  R. 

The  critical  moment  is: 


MB  =  2x2°-5/9  Ent2R( 1-v2 ) ' 0  •  5 


(2.4) 


Assuming  an  undeformed  cross-section  and  v  equal  to  0.3  this 
corresponds  to  a  buckling  stress  of 


6 B  =  0.329  Et/R. 


(2.5) 


Flugge25  investigated  the  buckling  behaviour  of 
cylinders  with  a  Poisson's  ratio  of  1/6  and  a  radius  to 
thickness  ratio  R/t  of  289.  He  assumed  a  failure  mode  with  a 
longitudinal  wave-length  ratio 

m  =  L/Rrr, 

with  m  being  the  number  of  longitudinal  waves  and  L  the 
length  of  the  cylinder.  The  analysis  thus  considered 
longitudinal  waves  only  with  a  wave-length  equal  to  half  the 
circumference.  The  buckling  stress  found  was  30  %  higher 
than  the  solution  for  axial  compression  (Eq.  2.2).  Supported 
by  various  results  of  moment  tests,  which  indicated  somewhat 
higher  stresses  than  for  the  equivalent  compression  problem. 
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and  overlooking  the  restrictions  due  to  the  assumed  buckling 
mode,  a  performance  factor  of  1.3  was  accepted  and  has  been 
used  subsequently  to  estimate  the  elastic  buckling  load  of 
cylinders  under  bending. 

Seide  and  Weingarten36  investigated  the  buckling  of 
circular  cylinders  using  a  modified  form  of  the  Donnell 
equations  and  the  Galerkin  method.  Using  four  different  R/t 
ratios  they  demonstrated  that  for  most  practical  length  to 
radius  ratios  the  critical  bending  stress  is  insignificantly 
higher  than  the  stress  for  pure  compression. 

Stephens  et  a 7. 38  used  the  computer  code  STAGS,  a  two- 
dimensional,  energy  formulation,  finite  difference  program, 
and  analyzed  cylinders  under  bending  with  an  R/t  ratio  of 
100  and  various  length  to  radius  ratios.  By  introducing 
imperfections  in  the  order  of  t/1000,  they  were  able  to 
follow  the  nonlinear  loading  path  and  determine  a  limit 
point  that  for  practical  purposes  can  be  assumed  to  be  a 
bifurcation  point.  Their  results  indicate  that  the  critical 
buckling  stress  of  cylinders  coincides  with  the  classical 
stress  5cr  for  very  short  cylinders  and  decreases  with 
increasing  L/R.  For  an  L/R  ratio  of  20  the  buckling  moment 
was  approximately  that  predicted  by  Brazier  and  occurred  at 
a  cross-section  flattening  of  0.22  times  the  radius. 

Fabian25  studied  the  behaviour  of  infinite  cylinders 
using  the  finite  difference  technique.  By  prescribing  the 
possible  deformation  modes  he  separated  the  ovalization 
effect  from  longitudinal  wrinkling.  For  a  cylinder  with 


■ 
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R/t=60  and  v=1/3  he  found  the  moment  to  be  about  53  %  of 
Me r,  which  is  slightly  below  Brazier's  solution. 


2.2  Finite  Elements  for  Cylindrical  Shells 

Thin  shell  theories,  as  opposed  to  three-dimensional 
theory,  are  based  on  the  Love-Ki rchhof f  hypothesis  that 
straight  lines  normal  to  the  middle  surface  remain  straight 
and  unchanged  in  length  during  deformation.  This  implies 
that  the  deformation  of  the  shell  can  be  described  by  the 
deformation  of  its  middle  surface  and  that  there  are  no 
transverse  strains.  With  decreasing  shell  thickness  t  the 
transverse  stresses  become  negligibly  small  compared  to  all 
other  stresses  and  allow  the  assumption  of  plane  stress. 

The  first  complete  set  of  kinematic  relations  for 
cylindrical  shells  was  developed  by  Flugge25.  Because  of  the 
awkward  nonlinearities  involved,  various  approximations  and 
simplifications  were  suggested.  Further  approximations  based 
on  the  negligibility  of  certain  strain  terms  led  to  a 
variety  of  shell  theories,  of  which  the  three  major  ones  are 
reviewed  below. 
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Fig.  2.1:  Local  Coordinate  System  for  a  Thin  Cylindrical 
Shell. 

Donnell  obtained  the  following  strain  displacement 
expressions . 


Gx 

=  U,x, 

(2.6a) 

G0 

=  ( V  ,  0  +  lv)/R, 

(2.6b) 

yx0 

=  u,0/R  +  V'X, 

(2.6c) 

Kx 

=  -  IV,  XX  , 

( 2 . 6d ) 

k0 

=  -  (iV,  00  )  /R2  , 

( 2 . 6e ) 

kx0 

=  -  (tV,X0)/R. 

(  2 . 6  f  ) 

The  comma  denotes  the  differentiation  with  respect  to  the 
following  coordinates,  and  u,  v,  and  w  are  displacements 
along  the  x-y-z  coordinate  axes,  shown  in  Fig.  2.1. 
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In  comparison  with  the  classical  plate  theory,  the 
y-coordinate  is  replaced  by  R-0  and  the  normal  displacement 
tv  contributes  to  the  circumferential  strain  60. 

Timoshenko  and  Woinoisky-Kreiger ' s 4 0  formulation 
differs  for  the  circumferential  and  twisting  curvature  by 
considering  the  influence  of  circumferential  displacements. 
The  resulting  curvature  expressions  are 


k0  =  (v,0 

-  M/,  00  )  /R2  , 

(2.7a) 

kx0  =  (v,x 

-  IV,  X0  )  /R  . 

(2.7b) 

A  third  set  of  strain  expressions  are  the  equations  by 
Koiter  and  Sanders.  These  are  regarded  by  some  as  the  'best' 
linear  shell  theory,  because  they  satisfy  strainless  rigid 
body  motions. 


Gx  =  u,x, 

G0  =  (v ,  0  +  tv)  /R  , 

yx0  =  l/,0/R  +  v,x, 

kx  =  -  iv, xx, 

k0  =  (v,  0  ~  M/,00)/  R2  , 

kx0  =  ( 3v,x  -  4m/, x0  -  l/,0/R) 


(2.8a) 
(2.8b) 
(2.8c) 
( 2 . 8d ) 
( 2 . 8e ) 

/ 4R .  ( 2 . 8  f ) 


The  only  difference  from  Timoshenko  and  Woinoisky-Kreiger ’ s 
equations  is  in  the  expression  for  the  twisting  curvature. 

A  detailed  discussion  of  the  approximations  in  these  shell 
theories  is  given  by  Dym23. 
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During  the  continuing  development  of  the  finite  element 
method  many  attempts  have  been  made  to  model  shells  with 
finite  elements.  Besides  the  curved  finite  strip  (Cheung16, 
Dawe21)  and  various  hybrid  formulations  (e.g.  Hor r igmoe 2 8 ) , 
most  elements  can  be  categorized  as  either  flat,  three- 
dimensional  (degenerated),  or  'true'  curved  shell  elements. 

The  modelling  of  shells  as  an  assembly  of  flat  elements 
was  the  first  and  probably  is  still  the  easiest  approach. 

It  is  however  a  crude  approach.  The  elements  are  derived  by 
superposition  of  the  independent  in-plane  (stretching)  and 
out-of-plane  behaviour  (bending)  of  plates.  With  increasing 
mesh  refinement  they  can  represent  a  curved  surface. 

The  coupling  of  the  bending  and  stretching  effects  occurs 
during  the  assembly  of  the  elements  and  with  the  transfor¬ 
mation  of  the  nodal  degrees  of  freedom  from  the  local 
element  coordinates  to  a  global  coordinate  system.  One  of 
the  latest  developments  with  flat  finite  elements  is  that  of 
Argyris  and  Dunne2  who  employed  a  triangular  plate  element 
for  postbuckling  studies  of  cylindrical  panels. 

The  three-dimensional  brick  element  was  originally 
developed  for  structures  with  thick  walls  and  was  later  used 
for  shells  with  a  low  R/t  ratio.  For  thin  shells  the  element 
showed  an  overemphasized  shear  stiffness,  and  caused  numer¬ 
ical  accuracy  problems.  Zienkiewicz  and  Hinton45  eliminated 
this  problem  by  using  a  reduced  order  of  integration  for  the 


shear  strain. 


Kanok-Nukulcha i 3 0  and  Ramm32  developed  procedures  for 
degenerating  three-dimensional  isoparametric  elements  to 
thin  shells  and  obtained  promising  results  in  general  shell 
analysis . 

One  of  the  first  elements  derived  directly  from  a  shell 
theory  was  a  nonconforming  rectangular  element  formulated  by 
Connor  and  Brebbia17.  They  used  a  linear  polynomial  for  the 
in-plane  displacement  function  with  a  quadratic  polynomial 
for  the  shear  strain  and  an  incomplete  quartic  polynomial 
function  for  the  out-of-plane  displacements.  This  element 
used  the  geometrical  degrees  of  freedom 

u,  v ,  im ,  w,x  and  (w,0-v)/ R 

at  each  of  the  four  corner  nodes. 

Gallagher27  added  the  twisting  curvature  wrx0  as  an 
internal  degree  of  freedom  to  obtain  a  conforming  element. 
Later  Bogner  et  al .  9  increased  the  degree  of  the  polynomial 
expressions  with  Hermitian  polynomials.  This  resulted  in  12 
degrees  of  freedom  per  node,  of  which  7  represented 
derivatives  proportional  to  various  strains  and  changes  of 
curvature.  To  avoid  an  overst i f f en ing  of  the  structure  due 
to  enforcing  continuity  of  internal  degrees  of  freedom, 
these  non-geometric  degrees  of  freedom  were  assembled  at 
a  single  artificial  node  or  were  eliminated  by  static 
condensation . 


. 
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Curved  shell  elements  based  on  polynomial  displacement 
functions  can  represent  strainless  rigid  body  motions  only 
approximately.  Except  for  the  rotation  and  translation 
around  the  axis  of  revolution,  trigonometric  terms  are 
needed  to  represent  rigid  motions  exactly  (compare 
Eq .  2.11).  If  the  element  does  not  have  these  functions, 
rigid  body  motions  induce  strains  which  are  normally  a 
higher  order  in  the  rigid  body  displacements.  A  general 
criterion,  ensuring  that  a  diplacement  function  is  capable 
of  representing  rigid  body  motions  is  not  available. 

This  depends  on  the  structure  considered,  the  displacement 
function  chosen,  and  the  strain  formulation  used. 

Dawe20  showed  that  high  order  polynomials  can  approxi¬ 
mate  rigid  body  motions  quite  well.  He  employed  quintic 
polynomials  for  all  three  displacement  fields  and 
constrained  the  functions  at  the  edges  of  the  element  to 
be  cubic,  thereby  enforcing  compatibility  between  elements. 
His  element  has  54  degrees  of  freedom  (18  per  node)  and 
shows  considerable  success  for  various  arch  and  shell 
problems.  The  only  disadvantage  is  the  larger  bandwidth  due 
to  its  triangular  shape. 

Cantin'3  included  strainless  rigid  body  motions  for 
polynomial  displacement  functions  using  certain  matrix 
operations.  A  further  discussion  of  this  technique  is  found 


in  Reference  3. 
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In  order  to  avoid  the  difficulties  in  only 
approximating  rigid  body  motions  by  polynomials,  several 
researchers  have  explicitly  included  the  rigid  body 
displacements  in  their  displacement  fields.  One  of  the 
first  attempts  was  made  by  Cantin  and  Clough14,  who  modified 
Gallagher’s  element.  This  gave  rise  to  trigonometric  terms 
in  the  displacement  field  and  also  to  a  coupling  of  u,  v, 
and  m/. 

Sabir  and  Lock33  simplified  Cantin  and  Clough's 
displacement  functions  by  omitting  the  highest  order  terms 
and  eliminating  the  internal  degree  of  freedom  m/,x0.  Despite 
giving  a  smaller  stiffness  matrix  and  violating  the  compati¬ 
bility  requirements,  the  element  showed  no  apparant  loss  of 
accuracy  when  compared  to  the  original  element. 

It  should  be  mentioned  here,  that  the  displacements 
defining  the  rigid  body  motions  discussed  above  are  based  on 
the  strain  displacement  equations  from  the  linear  theory  and 
may  cause  significant  strains  in  nonlinear  shell  formula- 
t i ons . 


2.3  Finite  Elements  Based  on  Strain  Functions 

By  studying  finite  element  solutions  for  cylindrical 
rings  and  arches  Ashwell,  Sabir  and  Roberts3-6  found  that  a 
particular  arch  element,  whose  strain  functions  are  simple 
expressions  in  the  element  coordinates,  showed  very  good 
convergence  when  compared  to  all  other  preceding  elements. 


. 
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Sabir  and  Ashweli4  concluded  that  the  success  of  the 
arch  element  is  due  to  the  smoothness  of  the  strain  field: 


"  ...  strain  energy  is  calculated  from  squares  and 
products  of  the  strains ,  and  imposing  local  variations 
on  an  initially  smooth  distr i but i on  w i thout  a  1  ter i ng 
the  local  mean  values ,  increases  the  value  of  the 
squares  when  they  are  integrated  over  the  element ."4 

With  the  results  of  this  arch  element  in  mind  Sabir  and 
Ashweli4  developed  an  assumed  strain  element  for  cylindrical 
shells . 

Using  the  strain  displacement  expressions  of  Timoshenko 
and  Woinoisky-Kreiger ,  (Eq.  2.6  and  2.7)  the  following 
compatibility  equations  are  obtained: 

60, xx  +  kx/R  +  (£x,00)/R2  -  (yx0,0x)/R  =  0,  (2.9a) 

kx0 , x  -  (kx,0)/R  +  (£x,0)/R2  -  (yx0,x)/R  =  0,  (2.9b) 

k0  ,x  -  (kx0,0)/R  =  0.  (2.9c) 


With  the  assumption  that  (£x,0)/R  equals  yx0,x  the  following 
more  restrictive  equations  are  used. 


(€x , 0 )/R  =  y x0 , x , 
60, xx  =  -  kx/R, 


(2.10a) 

(2.10b) 

(2.10c) 


(kx , 0 )/R  =  kx0 , x , 

k0 ,x  =  (kx0 , 0) /R. 


(2. 1 Od ) 
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In  the  first  step  for  the  derivation  of  the  displacement 
function,  the  strain  expressions  (Eq.  2.6  a-d,  2.7)  are 
integrated  to  give  the  strainless  rigid  body  motions,  f 

U  =  (a2cos0+a4sin0)R+a5,  (2.11a) 

\/  =  (a,  +  a2x)sin0  -  (a3  +  a4x)cos0  +  a6,  (2.11b) 

to/  =  -  (a,  +  a  2  x  )  c  o  S  0  -  ( a  3  +  a4x)sin0.  (2.11c) 

The  parameters  a;  may  be  identified  with  the  following  rigid 
modes  of  the  element  in  Fig.  2.2. 

a,  :  translation  in  the  z  direction, 
a2  :  rotation  around  the  y-axis, 
a 3  :  translation  in  the  y  direction, 

a 4  :  rotation  around  the  z-axis, 
a  5  :  translation  in  the  x  direction, 

a6  :  rotation  around  the  x-axis. 


t  The  displacements  due  to  rotations  are  derived  from  the 
assumption  that  the  rotations  are  'small'.  A  further 
discussion  of  the  ’exact’  displacements  is  given  in 
section  5.4. 
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Fig.  2.2:  Shell  Element  with  Local  and  Global  Axes. 


With  20  nodal  degrees  of  freedom  wanted,  14  parameters 
are  left  for  the  strain  functions  and  are  distributed  as 
follows : 


Gx 

=  a  7  +a  8  0  , 

(2.12a) 

€0 

=  a 9 +a , o x~ ( a , 2 x 2 /2R+a , 3 x 3 /6R  +a , 4x 2 0/2R+a , 

s  x  3  0/6R ) , 

(2.12b) 

yK0 

=  a ,  ,  +  ( a  8 x/R )  , 

(2.12c) 

kx 

=  a , 2+a , 3x+a , 40+a i &X0 , 

(2. 12d) 

k0 

=  a , 6 +a , 7 x+a , 8 0+a , 9 X0 , 

(2.1  2e ) 

kx0 

=  a 2 0  +  ( a  1  4 x/R+a ,  5 x 2 /2R  +Ra ,  7 0  +  Ra ,  , 0 2 /2 ) . 

(2.  12f ) 

After  the  unbracketed  terms  are  written,  the  terms  in 


* 


, 


parentheses  are  added  to  satisfy  the  compatibility  equations 
(Eq.  2.10). 

The  displacement  functions  are  obtained  by  integration  of 
the  above  equations.  The  integration  constants  depend  on  the 
choice  of  location  of  the  origin  of  the  local  coordinate 
system.  For  simplicity  this  is  chosen  to  be  at  the  middle  of 
the  element  as  shown  (Fig.  2.1). 

U  =  a7x  +  ct'8x0  +  Ra  ,  ,  0  -0 . 5R3  a  ,  7  0  2  +R3  (  0-0  3/b  )  a  ,  <,  -R2a2  o0, 

(2.13a) 

V  =  R2a160  +R 2  a ,  7 X0  +  O . 5R 2  a ,  8  0  2  +  ( X00/2-  1  ) R 2  a ,  9  +Ra20x, 

(2.13b) 

W  =  ( Ra 9 +Ra ,  o  )  x~a ,  2 x 2 /2  -a ,  3 x 3 /6~a ,  4 x 2 0/2-a ,  5 x 3 0/6 

~R 2  ct ,  6  ~R2a  ,  7x-R2a  ,  8  0  -R2a,9x0.  (2.13c) 

The  complete  displacement  field  consists  of  the  equations 
above  plus  the  rigid  body  motions  (Eq.  2.11). 

Ashwell  and  Sabir  obtained  very  good  convergence  for 
their  element  for  the  problem  of  a  barrel  vault  under 
gravitational  load.  In  section  4.1  its  performance  is 
compared  to  that  of  the  element  used  in  this  study  for  the 
problem  of  a  pinched  cylinder. 

Ashwell  made  the  argument  that  a  finite  element  should 
be  capable  of  representing  the  known  solutions  of  certain 
test  problems  and  therefore  altered  the  strain  functions 
(Eq.  2.12)  so  as  to  better  represent  the  stresses  in  a 
cylinder  under  bending.  These  stresses  are  functions  of  the 
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circumferential  coordinate  only.  This  requires  a  sin0  term 
in  the  expressions  for  the  strains  Gx  and  kx ,  and  also 
requires  yx0  to  be  independent  from  all  the  other  strains. 


Gx 

60 

7x0 

kx 

k0 

kx0 


a  7  +ct  8  s  i  n0  , 

(2.14a) 

a9+a,  0  (  a  ,  2x2/2R+a1  3x3/6R  +a,  4x20/2R+a:1 

5x  30/6R) , 

(2. 14b) 

«H, 

(2.14c) 

a 8 s in0/R+a , 2 +a , 3 x+a , 4 0  +a15x0, 

(2. 14d) 

a  ,  hffi  7  x+a ,  80  +  a,  ,X0, 

(2. 14e) 

a  2  o  +  (ffi  4X/R+Q:,  Sx2/2R  +Ra,  ,0+Ra,  ,02/2)  . 

(2.  1 4 f  ) 

In  the  displacement  function  for  u,  'aax0'  becomes  'a8xsin0' 
and  \/  and  itf  are  supplemented  by  the  terms  ' -a  8  x  2cos0/2R2  ' 
and  ' -a 8 x 2 s i n0/2R ' ,  respectively.  With  the  altered  displace¬ 
ment  field  appreciable  improvement  is  obtained  for  the 
barrel  vault  problem  if  compared  to  the  element  of  Ashwell 
and  Sabir4.  Both  strain  elements  converge  to  solutions  of 
the  'deep  shell'  theory. 


. 


3.  Formulation  of  a  New  Strain  Element 


3.1  Displacement  Function 

The  element  in  this  study  is  derived  from  the  Koiter- 
Sander’s  strain  expressions  (Eq.  2.8).  With  the  constants  a; 
defined  as  for  the  Sabi r-Ashwell  element  (Eq.  2.11), 
the  displacement  functions  are  developed  using  the  procedure 
described  in  section  2.3  and  are  given  in  the  equations 
below . 


U  =  (a2cos0+a4sin0)R+a5+a7x+a8xsin0  +O.75Ra110 

-0 . 5R 3  a ,  7  0  2  +R3 ( 0-0 3 /6 ) a ,  ,  -R2a2O0,  (3.1a) 

V  =  ( a , +a 2 x ) s in0- ( a 3 +a 4 x ) COS0  +a 6 -a 8 x 2cos0/2R+xa , , /4 

+  R2a160  +R 2  a ,  7 X0  + 0 . 5R 2  a ,  8  0  2  +R 2 ( 0 2 /2~ 1 ) a ,  , x 
+  R  2a2oX,  (3.1b) 

VJ  =  -  (  a  , +a  2  x  )  COS0- (  a  3 +a  4  x  )  s  in0  ~a  8  x  2  s  i n0/2R+Ra  9  +Ra  ,  0  x 
-a12x2/ 2  -a ,  3 x 3 /6~a ,  4 x 2 0/2-a ,  s x 3 0/6  -R 2  a ,  6 -R 2  a ,  7 x 
-R 2  a ,  s0  -R2a,  ,x0.  (3.1c) 


The  only  differences  from  the  improved  element  of  Ashwell3 
are  the  change  from  ' Ra , , 0 '  to  '0.75  Ra , , 0 '  in  the 
expression  for  u ,  and  the  addition  of  'xat,/4'  to  the 
expression  for  \/.  The  resulting  assumed  strains  are: 


6x  =  a,+a8sin0,  (3.2a) 

60  =  a  9 +ct ,  0  x- (  a  ,  2  x  2 /2R+a  ,  3  x  3 /6R  +a  ,  4  x  2  0/2R+a  ,  5  x  3  0/6R )  , 
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(3.2b) 

7X0  =  a , , , 

(3.2c) 

kx  =  a  8 sino/R+a , 

2+«,  3 x  +  a ,40  +a ,  5  X0  , 

(3. 2d) 

k0  =  a ,  6  +  a ,  7  x  +  a , 

8  0  +  a ,  ,X0, 

(3.2e) 

kx0  =  ( a  ,  4  x/R  +  a ,  5 

x2/2R  +Ra , 7 0+Ra ,  « 0 2 /2 ) +a 2 o . 

(  3 . 2  f  ) 

The  vector  of  the  displacement  parameters  {a}  is 
related  to  the  nodal  displacement  vector  {q}  by  the  matrix 
[7],  the  inverse  of  which  is  given  in  Appendix  A.1. 


{q}  =  [7]  {a}, 

=  <  U  i  Vi  M/, 

ySx  , 

/50  , 

u2  v2  v/2  fix  2  fi0  2 

(3.3a) 

U3  \/3  1^3 

ySx  3 

y80  3 

T 

U 4  v4  M/ a  ySx4  fi0  4  >  . 

(3.3b) 

The  indices  denote  the  node  number.  With  the  explicit  form 
of  the  inverse  of  [7]  it  is  possible  to  write  the  element 
shape  functions  explicitly  for  each  of  the  20  degrees  of 
freedom.  This  is  not  done  here  due  to  the  lengthiness  of  the 
resulting  expressions. 

The  Eqs.  3.2  and  3.3a  define  the  strain  functions  in 
terms  of  nodal  displacements.  Instead  of  using  the  explicit 
shape  functions,  the  strain  functions  are  used  directly  for 
the  formulation  of  the  stiffness  matrices. 
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Fig.  3.1:  Element  with  Centre  Coordinate  System  and 
Corner  Nodes. 

The  degrees  of  freedom  u,  V,  and  iv  are  the  displacements 
along  the  local  x,  y,  and  z  coordinate  directions, 
respectively,  and  fix  and  fi0  are  the  rotations  of  the  normal 
about  the  local  x  and  0  axes,  respectively.  In  terms  of  the 
displacements,  these  rotations  are  given  by 


fix  =  IV,  X, 

(3.4a) 

fi0  =  (lV,0~V)/  R. 

(3.4b) 
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3.2  Formulation  of  the  Strain  Energy  Expression 

The  element  used  in  this  study  is  based  on  a  displace¬ 
ment  field  (Eqs.  3.1)  derived  from  an  assumed  strain  field. 
Following  the  usual  steps  in  the  classical  displacement 
method,  the  stiffness  matrices  for  the  element  are  derived 
using  the  Principle  of  the  Stationary  Potential  Energy. 

The  potential  energy  JJ  is  the  difference  of  the  strain 
energy  U  and  the  potential  VJ  of  the  external  loads  (?,•  with 
respect  to  the  corresponding  displacements  g,- . 

TT  =  U  -  W.  (3.5) 

The  strain  energy  is  defined  as 

U  =  1/2  J {5}T  {£}  dV  ,  (3.6) 

V 

with  V  being  the  volume  of  the  structure  considered. 

The  strain  and  stress  vectors  {6}  and  {6“}  for  the  assumed 
plane  stress  state  in  thin  shells  take  the  form 

T 

{5}  =  <  6x  50  Tx0  >  , 

T 

{6“}  =  <  6x  60  yx0  >  . 

For  a  linear  elastic  structure,  the  stress  vector  is 
expressed  by  the  product  of  the  elasticity  matrix  [E]  and 


(3.7a) 

(3.7b) 


the  strain  vector. 


. 
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{6}  =  [E]-{£}, 


with  [E]  =  E/( 1-v  2 ) 


1  v  0 

v  1  0 

0  0  (  1  -  v  )  /  2 


and  the  Poisson's  ratio  v. 

Using  Eq .  3.6  the  strain  energy  becomes: 


(3.8) 


(3.9) 


U  = 


1/2  E/(1~v2)  J[Gx  2  +Gfi  2  +  2v£“x6‘0  +(1_v)/2  yx02] 

V 


dV. 

(3.10) 


For  later  convenience  the  strains  are  separated  into  an 
in-plane  and  an  out-of-plane  part. 


Gx 

Gx 

kx 

G<z> 

= 

G_0 

+  z  • 

k0 

yx0 

2X0 

2  kx0 

Substituting  Eq .  3.11  into  Eq .  3.10  and  performing  the 
integration  over  the  shell  thickness  t  the  strain  energy  is: 


U  =  C/2  /[,x2+i02  +  2v,x,0+(1-v)/2  2.x  0  2  )  1  dA 
A 


/■ 


+  D/2  J  [  kx  2  +kp  2  +2  vkx/<0  +  2  (  1  -  v  )  kx0  2  ]  dA  ,  (3.12) 

A 


with 


C  =  Et / ( 1-v2 ) , 

D  =  Et 3 / 1 2 ( 1-v2 ) , 
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and  A  is  the  middle  surface  area  of  the  element. 

Before  the  strain  equations  by  Koi ter-Sanders  are 
substituted  into  Eq.  3.12,  the  strain  expressions  are 
divided  into  linear  and  nonlinear  parts. 


Gx  =  Gx  +  1  /2  (  fix  ,  2  +  fix  2  2  +fix  3  2  )  , 

60  =  60+  1  /2  ( fi0 , 2  +/?0  2  2  +  fi0  3  2  )  , 

2X0  =  yx0  +  /?x1/?01+/?x2/302+/?x3/j03  , 


kx  =  -fix,x, 
k0  =  - @0 , 0 /R  r 

kx0  =  -fi0  ,  x-yx0/4R  ,  y  x  0  =  fix2+fi0,, 


£x  , 

=  Gx  =  u , x , 

fi0 

/3x  2 

=  v ,  x , 

fi0 

/8x  3 

-  fix  =  H\x, 

fi  0 

U,0/R, 

60  =  {v  ,  0  +M/ )  /R  , 

/3©  =  (u/,  0~v)/R.  (  3  .  13) 


Since  the  strain  energy  consists  of  products  of  the  above 
strains,  it  is  separated  into  a  quadratic,  a  cubic,  and  a 
quartic  part. 


U  =  U  2  +  U  3  +  U<. 


(3.14a) 


U2  =  C/2  J'lGx  (Gx  +  v60) +60  (60  +  vGx)  +  (  1-v)/2  yx02]  dA 
A 


/■ 


+  D/2  J [kx ikx+ vk0 ) +k0 ( k0+vkx ) +2 ( 1 - v )  kx02]  dA, 
A 


(3.14b) 
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U  3 


Gx(fix,  2  +  fix  2  2  +  fix  3  2  +v  { fi<?> ,  2  +fip  2  2  +fi&  3 2 ) ) 

+  Go ( fi& ,  2  +  ftp  2  2+^032  +  v{/Sx1  2  +  fix  2  2  +  fix  3  2 }  ) 


+  (  1  -V  )  yx0  (fix  t  fio  ,  +  £x  2/3o  2  +fix  3fi0  3  )  ]  dA, 

(3.14c) 


U4 


[  (fix,7  +  fix  27+fix32  )  7  +  (fio  ,  2+/S022+/3032)2 

+  2v  ( fix ,  2 +  fix  2  2  +/?X  3  2  )  (fi0,  2  +fiO  22  +fi0  3  2  ) 

+  2\'  (fix  ,  fio  ,+fix2fi0  2+fix  3fi0  3)  2  ]  dA.  (  3  .  1  4d ) 


3.3  Derivation  of  the  Stiffness  Matrices 

In  order  to  formulate  the  stiffness  matrices  the 
stiffness  coefficients  have  to  be  defined  by  the  components 
of  the  strain  energy  and  the  nodal  displacements. 

u  =  u2  +  u3  +  u4, 

U2  =  1/2  K 2 i j  qi  qj , 

U3  =  1/6  K3 ijk  qi  qj  qk , 

UA  =  1/12  K 4 i j k 1  qi  qj  qk  ql ,  (i,j,k,l  =  1  ...  20). 

(3.15) 


In  the  above,  qi  is  the  i-th  term  of  the  nodal  displacement 
vector  {q}.  With  Eqs.  3.2  and  3.13  the  strain  fields  are 
expressed  in  the  form: 


' 


■ 
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6x 

<0x> 

00 

<00  > 

yx0 

<0X  0  > 

Kx 

<ax> 

k0 

<a0> 

kx0 

<ax0> 

£x  3 

<Bx> 

£0  3 

<00  > 

fix  2 

<0U> 

(50  1 

<0v> 

(3.16) 


The  linear  strain  functions  ( <0>  and  <a>)  are  given  in 
Appendix  A. 2.  Introducing  Eq .  3.16  into  Eq .  3.14  the 
stiffness  matrices  can  be  computed.  The  linear  stiffness 
matrix  is: 


{0x}<0x+v00>  +  {00}<0o+v0x> 

+  (1-v)/2  (0x0 } <0x0>  ]  d0  dx 

{ax}<ax  +  va0>  +  { a0  }  <a0  + vax> 

+  2(1-v)  {ax0}<ax0>  ]  d0  dx, 


(3.17) 


In  the  above  equations,  R  is  the  radius  of  the  cylinder, 
p  is  half  of  the  angle  subtended  by  the  element  and  1  is 
half  of  its  longitudinal  dimension. 


. 
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The  nonlinear  stiffness  terms  of  third  and  fourth  order 
as  defined  in  Eqs.  3.15,  are  computed  in  a  similar  manner. 


3.4  Newton-Raphson  Method  Solution  Procedure 

An  elastic  structure  follows  the  principle  of 
stationary  potential  energy: 

Of  al 1  kinematically  admissible  displacement  fields, 
the  actual  equilibrium  d i spl acements  make  the  potential 
energy  have  a  st at  ionary  value. 

The  term  kinematically  admissible  means  that  the  displace¬ 
ments  are  continuous  within  the  structure  and  that  they 
satisfy  the  kinematic  boundary  conditions. 

A  stationary  value  for  the  potential  energy  requires 
that  the  first  partial  derivatives  of  the  potential  energy 
with  respect  to  the  nodal  displacements  are  zero.  Taking  the 
first  derivative  of  Eq.  3.5  the  equilibrium  conditions  can 
be  written: 

JJ,qi  =  0  =  K2 ij  gj  +  1/2  K3 ijk  q j  gk 

+  1/3  K4ijkl  gj  gk  gl  -  pi.  (3.18) 

It  may  be  further  stated  that  the  equilibrium  state 
that  makes  JJ  stationary  (first  variation  equal  to  zero)  is 
stable  if  the  second  variation  of  "JT  is  positive. 


This  means  that  the  determinant  of  the  Jacobian  matrix  of 


- 
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has  to  be  positive.  Using  Eg.  3.5  this  can  be  expressed  as: 

|  JJ,qi  Qj  I  >  0  ,  or 

|  K2 ij  +  K3 ijk  qk  +  K4ijkl  qk  gl  |  =  |  [/<T]  |  >  0, 

(3.19) 


where  |  j  denotes  the  determinant. 

T 

The  matrix  [K  ]  is  referred  to  as  the  tangent  stiffness 

matrix  and  is  positive  definite  for  a  stable  equilibrium 

configuration.  For  an  unstable  equilibrium  configuration  the 

T 

determinant  of  [K  ]  becomes  negative.  At  a  bifurcation  point 
or  a  limit  point  (a  horizontal  tangent  in  the  load-deflec¬ 
tion  curve),  the  determinant  of  [K  ]  is  zero. 

To  first  order  in  the  incremental  displacement  Agi , 
the  incremental  form  of  the  equilibrium  equation  3.18  is 

T 

K  i  j  Agj  =  A(?i . 

In  order  to  be  able  to  prescribe  both  displacement  and 
force  type  boundary  conditions,  the  above  equation  must  be 
modified.  In  the  new  equations  below  a  A  denotes  increments 
in  forces  or  displacements  and  a  star  ( * )  indicates 
prescribed  values.  For  easier  representation  the  equations 
have  been  reordered  so  that  the  prescribed  incremental 
forces  are  grouped  together  as  are  the  precribed  incremental 
displacements . 


' 
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[K\ ,  1 

[KT,  J 

{ Aq,  } 

{  A(?,  *  } 

T 

T 

[K  21] 

[K  „] 

{ Aq2  * } 

{  Ap2  } 

(3.20) 


The  first  equation  resulting  from  this  partitioning  is 
then  re-arranged  so  that  the  unknown  displacements  may  be 
solved  for. 

T  T 

[K  ,,]  (a  q,}  =  {a  <?,*}  -  [K  12]  {  aq  2  * } . 

After  { AQ  i }  is  known,  the  unknown  forces  { A<P  2  }  can  be 
calculated  from  the  stiffness  matrix  and  the  displacements. 
In  the  finite  element  program  used,  the  nodal  forces  are  not 
needed,  and  the  stiffness  matrix  and  the  right  hand  side  are 
changed  for  easier  application  of  the  equation  solver  and  to 
obtain  a  full  incremental  displacement  vector. 


[KT, , ] 

[0] 

{ Aq,  } 

T 

(a <?,  *}  -  [K  i  2  3  { Aq2 * } 

[0] 

m 

{ Aq2  * } 

{ Aq2  * } 

(3.21  ) 


In  the  above,  [I]  denotes  the  identity  and  [0]  the 
zero-matrix . 


After  the  new  displacements  of  the  structure  are  found, 
the  equilibrium  of  the  deformed  structure  can  be  checked 
with  Eq.  3.18.  If  the  equilibrium  equation  is  not  satisfied, 
the  displacements  have  to  be  changed  until  they  satisfy 
Eq.  3.18.  One  well  established  procedure  for  this  problem  is 


Load 
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the  Newton-Raphson  method  which  is  described  in  the 
algorithm  given  below. 

Figure  3.2  shows  the  Newton-Raphson  method  for  a  load 
step  from  {(?° }  to  { p }  .  The  corresponding  deformations  are 
the  vectors  {q° }  and  {q} . 


Fig.  3.2:  The  Newton-Raphson  Method  for  a 
One-Degree-of -Freedom  System. 


Algorithm  for  the  Newton-Raphson  Method: 

1  )  Start  of  new  load  step, 

set  i  as  superscript  of  { Q 1  }  ,  {(?’},  and  [K  ’]  to  one. 
2)  Form  the  tangent  stiffness  matrix, 
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K  1 i j  =  K 2 i  j  +  K3ijk  g 1 k  +  K 4  i  j  k  1  g  ’  k  q 1  1 . 

3)  If  superscript  i  is  greater  than  one,  go  to  step  5. 

4)  Modify  the  tangent  stiffness  matrix  and  the  incremental 
load  vector  as  shown  in  Eq .  3.21  by  including  the 
prescribed  i nc remental  loads  and  displacements  for  this 
load  step. 

5)  Calculate  the  incremental  displacements  from  Eq .  3.21, 
and  update  the  displacement  vector, 

{q; }  =  { Q ; " 1 }  +  [K ' ' ] " 1  { Q-Q ; ' 1 } . 

6)  Check  if  the  displacements  have  converged, 

(if  | g1 -q1 ' 1 |  <  tolerance),  go  to  step  10. 

7)  Compute  the  internal  nodal  forces  from  the  equilibrium 
equat i on , 

Q' i  =  K2ij  q1 j  +  1/2  K3ijk  q1 j  q’k 
+  1/3  K4ijkl  q 1 j  g1 k  q’l. 

8)  Compute  the  vector  {Q~Q' }  as  a  new  right  hand  side  of 
Eq .  3.21. 

9)  Increase  superscript  i  of  { q 1  }  ,  {(?’},  and  [K  ’]  by  one, 

return  to  step  2. 

10)  End  of  load  step. 


4.  Linear  Solutions 


4.1  Pinched  Cylinder  Problem 

In  order  to  study  the  convergence  behaviour  of 
cylindrical  shell  finite  elements,  various  sample  problems 
have  been  utilized.  The  most  often  used  problem  for 
cylindrical  shells  is  a  pinched  cylinder  as  shown  in 
Fig .  4.1. 


Fig.  4.1:  Pinched  Cylinder  under  Load  with  Element 
Mesh  for  One  Octant. 

The  data  for  this  cylinder  are: 

R  =  4 . 953  in .  , 

L  =10.35  in., 
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t  =  0.094  in.  for  the  thick  and  0.01548  in.  for  the 
thin  cylinder, 

E  =  1.05xi06  lbs/in. 2 , 
v  =  0.3125. 

The  load  P  is  100  lbs  for  the  thick  cylinder  and  0.1  lbs  for 
the  thin  one. 

Because  of  symmetry,  only  one  octant  needs  to  be 
analyzed,  with  the  appropriate  boundary  conditions  applied 
as  described  in  the  following.  The  nodal  degrees  of  freedom 
V/  and  @0  along  the  top  fibre  A  and  the  side  edge  B  are  set 
to  zero.  No  displacements  are  prescribed  at  end  C.  Symmetry 
about  the  vertical  plane  and  the  mid-section  D  requires  u 
and  /8x  to  be  zero. 

Ashwell  and  Sabir  calculated  the  deflection  under  the 
load  for  the  thick  cylinder.  Their  solution  in  Reference  4 
converges  to  a  value  of  0.1137  inches.  For  the  mesh  sizes 
chosen  by  Ashwell  and  Sabir  no  difference  could  be  found 
between  their  results  and  the  present  results.  It  would  be 
interesting  to  compare  their  solution  with  more  significant 
figures  to  determine  if  there  are  any  differences. 

For  comparison  the  results  of  Cantin13  are  also  shown. 

The  latter  is  believed  by  Ashwell  and  Sabir  to  be  the  most 
accurate  solution.  It  converges  to  a  deflection  of  0.1139 


inches . 


' 
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Table  4.1:  Deflection  of  Thick  Pinched 
Cylinder  under  Load. 


Mesh  size 
NX  x  NP 

present  study, 
Ashwell  and  Sabir 

Cantin 

1  x  1 

0.1041  ' 

- 

2x2 

0.1103 

0.0931 

4x4 

0.1129 

0.1126 

6x6 

0.1135 

0.1137 

8x8 

0.1137 

0.1139 

10x10 

0.1137 

0.1139 

Despite  having  20  %  fewer  degrees  of  freedom  than  the  Cantin 
element,  the  elements  of  Ashwell  and  Sabir  and  the  present 
study  show  a  similar  convergence.  The  two  strain  formulation 
elements  give  better  results  for  mesh  sizes  up  to  4x4  and 
converge  to  a  deflection  of  99.8  %  of  Cantin's  solution. 

For  the  thin  pinched  cylinder  problem  better  or  worse 
behaviour  can  be  obtained,  depending  on  the  simplifications 
and  assumptions  of  the  shell  theory  used.  In  the  appendix  of 
Reference  4  Ashwell  and  Sabir  estimate  the  exact  solution  to 
be  0.02439  in.,  which  they  believe  to  be  correct  to  four 
significant  figures. 


■ 
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Table  4.2:  Deflections  of  Thin  Pinched  Cylinder 
under  Load. 


Mesh  size 
NX  x  NP 

Ashwell  and  Sabir 

present  study 

1  x  1 

0.02301 

0.02327 

2x1 

0.02300 

0 . 02336 

3x1 

0 . 02302 

0.02337 

1x4 

0 .02403 

0.02432 

2x4 

0 . 02409 

0 .02448 

3x4 

0.02414 

0.02452 

1  x8 

0 . 02406 

0.02436 

2x8 

0.02414 

0.02443 

3x8 

0.02418 

0.02448 

Despite  giving  the  same  results  as  Ashwell  and  Sabir  for  the 
thick  cylinder  (R/t=53),  the  thin  cylinder  problem  (R/t=320) 
shows  a  significant  difference.  For  all  mesh  sizes  chosen, 
the  present  study  gives  deflections,  that  are  1.0  to  1.5  % 
larger  and  which  are  closer  to  the  ’exact’  solution  of 
0.02439  in.  than  the  Ashwell  and  Sabir  solution.  Except  for 
the  2x1  mesh,  the  Sabir  Ashwell  model  softens  with 
increasing  number  of  elements  in  the  circumferential  and 
longitudinal  direction  and  seems  to  converge  to  a  solution 
below  the  'exact'  solution.  The  present  element  converges 
nonmonotonically  with  respect  to  grid  refinement  in  the 
0-direction  to  a  value  above  the  'exact'  solution. 
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4.2  Cylinder  under  Bending 

4.2.1  Boundary  Conditions  and  Theoretical  Results 

With  the  symmetry  of  a  cylinder  under  bending  only  one 
quarter  needs  to  be  analyzed.  The  symmetry  about  the  central 
vertical  longitudinal  plane  requires  that  v  and  /?0  at  the 
top  and  bottom  fibre  be  zero.  Symmetry  about  the  cross- 
section  plane  at  the  mid-cylinder  requires  that  u  and  /?x  be 
zero  at  that  plane. 


Side  View  Cross  Section 


Fig.  4.2:  Left  Half  of  Cylinder  under  Bending  with 
Linearized  Boundary  Conditions. 


The  boundary  condition  at  the  left  cylinder  end  is 
determined  by  the  end  rotation  /?.  The  cylinder  cross-section 


- 


/ 
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at  the  end  is  taken  to  be  rigid  and  rotates  as  a  plane 
without  change  in  the  circular  shape.  It  is  assumed  that 
higher  orders  in  the  rotation  fi  are  negligibly  small  for  a 
linearized  theory.  The  resulting  displacements  and  rotations 
at  the  end  section  are  shown  below  to  first  order  in  fi. 


u 

=  -  R  fi  cos ( 0 ) , 

V 

=  0, 

w 

=  0, 

(4.1) 

fix  =  fi  COS ( 0 ) , 

fi0  =  0. 

The  exact  end  conditions ,  . including  nonlinear  terms,  are 
discussed  in  section  5.5.3. 

A  closed  form  solution  for  the  linear  bending  problem 
is  given  by  Donnell22.  After  transformation  to  the 
coordinate  system  in  Fig.  4.2,  it  becomes 

U  =  0.50  fi  R  s i n ( 0  0 ) (  1  +  4x/L ) ,  (4.2a) 

V/  =  0.25  fi  L  cos(0°)(3/4  -  2x/L  -  4x2/L2  +  8vR2/L2), 

(4.2b) 

IM  =  0.25  fi  L  s i n ( 0  0 ) (3/4  -  2x/L  -  4x2/L2).  (4.2c) 

For  this  solution  the  top  and  bottom  points  at  the 
cylinder  end  are  fixed  vertically.  The  cross-section  at 
the  cylinder  end  is  no  longer  rigid  since  the  last  term  in 


Sq .  4.2b  causes  displacements  tangential  to  the  local 
circumferential  coordinate  0. 

The  corresponding  strains  are  computed  using  Eq.  2.8: 
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Gx  =  2  p  R/L  sin ( 0  0 ) , 

(4.3a) 

€0  =  -  2  v  J3  R/L  s  i  n  (  0  0  )  , 

(4.3b) 

yx0  =  0, 

(4.3c) 

kx  =2  0/L  s in ( 0  0  )  , 

(4.3d) 

k0  =  ~  2  v  J3/L  sin  (  0  0  )  , 

( 4 . 3e  ) 

kx0  =  0. 

( 4 . 3  f  ) 

The  stresses  are  then  defined  with  Eq.  3.8. 

(4.4a) 
(4.4b) 
(4.4c) 


5x  =  2  E  (R+z)/L  sin(0°), 
50  =  0  , 

Tx0  =  0 . 


The  relationship  between  Donnell's  solution  and  the 
common  beam  stresses  can  be  clearly  seen  in  the  equations 
above.  The  stresses  are  the  same  as  those  predicted  by  beam 
theory.  With  v=0  in  the  displacement  function  (Eq.  4.2)  the 
cylinder  behaves  like  a  simple  beam.  That  is,  the  circular 
cross-section  is  not  deformed. 

With  zero  circumferential  stress,  the  circumferential 
strain  60  is  -  v  6x .  The  strain  60  has  its  maximum  values  at 
the  top  and  bottom  of  the  cylinder  and  is  zero  at  the 
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cylinder  side.  The  positive  circumferential  strain  in  the 
upper  cylinder  half  and  the  negative  strain  in  the  lower 
half  cause  individual  points  of  the  cross-section  to  move 
circumferentially  towards  the  bottom.  These  circumferential 
displacements  are  zero  at  the  top  and  bottom  fibre  and  have 
their  maximum  value  at  the  side  of  the  cylinder. 

For  later  convenience  a  measure  of  the  effect  of 
the  circumferential  stretching  is  defined.  This  is  the 
difference  between  the  vertical  movement  of  the  cylinder 
side  and  the  deflection  of  the  top  fibre.  This  difference 
is  denoted  as  Av.  The  Donnell  solution  predicts  the  circum¬ 
ferential  stretching  as 

av  =  (8  v  R2/L2 )  M/b, 

Wb  =  /3  L/4. 

For  long  cylinders  Av  is  quite  small,  but  it  is 
significant  for  relatively  short  cylinders.  For  a  cylinder 
with  the  geometry  of  the  cylinder  being  tested  by  Stephens37 
(R/L  =  764.5/1829),  Av  is  42  %  of  u/b.  A  better  insight  into 
the  effects  of  Av  is  gained  if  it  is  expressed  as  a  function 
of  the  end  rotation  ft.  The  rotation  at  which  the  classical 
buckling  stress  5cr  occurs,  assuming  linear  bending  theory, 
i  s 


fic r  =  t  L/2R2 [ 3 ( 1 -v  2 )  ]~'/2.  (4.5) 

Av  =  (2  v  R 2  /L )  £, 
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=  (v  t  [ 3  (  1  - V  2  )  ]  -  1  /2)  ifi/ficr) .  (4.6) 

For  v  =  0.3  and  jS=jScr,  Av  is  equal  to  0.182  t. 

The  circumferential  strain  60  for  this  Av  is  0.182  t/R 
at  the  top  fibre  when  the  elastic  buckling  moment  Me r  has 
been  reached.  If  av  is  prevented  at  the  ends  due  to  rigid 
plates  then  a  circumferential  compressive  stress  equal  to  v 
times  the  longitudinal  stress  develops.  In  a  structural  test 
this  can  lead  to  an  outward  buckle  along  the  end  plate  of 
the  cylinder. 

4.2.2  Element  Approximation  of  Cylinder  under  Bending 

In  the  preceding  section  it  was  shown  that  the  linear 
solution  for  the  displacements  of  a  cylinder  under  bending 
consists  of  products  of  simple  trigonometric  functions  in 
the  coordinate  0°  (Fig.  4.2)  and  quadratic  polynomials  in 
the  longitudinal  coordinate  x.  If  the  semi-circumference 
is  divided  into  several  elements,  the  coordinate  0°  can  be 
expressed  by  the  local  element  coordinate  0  and  the  angle  a 
between  the  side  edge  and  the  origin  of  the  element 
coordinate : 

0 0  =  a  +  0 . 

With  above  expression  introduced  into  Eq.  4.2, 
the  addition  formulas  of  trigonometry  result  in  there  being 
a  combination  of  sin0  and  cos0  terms  in  the  displacement 
fields.  Some  of  these  terms  in  the  displacement  function 
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cannot  be  represented  exactly  by  the  assumed  displacement 
field  (Eqs.  3.1)  of  the  element.  A  list  of  terms  occuring  in 
the  Donnell  solution  is  given  in  Table  4.3  and  compared  with 
the  available  parameters  of  the  element  displacement 
functions . 


Table  4.3:  Approximations  of  the  Element  Displacement  Field. 


Displacement 

terms  in 
Donnell 
solut i on 

terms  in  the 
element 
displacement 
field 

Nature  of  the 
approx imat i on 

u 

sin0 
xs  i  n0 
COS0 

XCOS0 

a 4  s  i n0 
a8xsin0 
a  2  c os0 
a  7  x 

exact 

exact 

exact 

o . k .  for  c o s 0  —  1 

V 

COS0 

XCOS0 

X  2  COS0 
s  in0 
xsin0 
x  2  s i n0 
v  C  O  S  0 
vsin0 

a  3  c OS0 
a  4  XCOS0 
a  8  x  2  COS0 
a, sin0 
a  2  xsin0 

t 

a  e  $ 

* 

exact 

exact 

exact 

exact 

exact 

o.k.  for  x<<L 
o . k .  for  c o s 0  —  1 
o.k.  for  sin0=O 

IA/ 

s  i  n0 
xs  in0 
x  2  s in0 
COS0 
XCOS0 

X  2  COS0 

a 3  sin0 

a  4 xs i n0 
a  8  x  2  s i n0 
a , cos0 
a 2 xcos0 

(X  1  2  X 

exact 

exact 

exact 

exact 

exact 

o.k.  for  c o s 0  —  1 

t  No  term  appears,  because  there  is  no  term  in  the  displace¬ 
ment  field  for  v  which  has  a  factor  of  x2sin0. 

$  ' vcos0'  and  'vsin0'  represent  the  circumferential  strain 
predicted  by  Donnell  which  is  independent  of  the  displace¬ 
ments  for  u  and  n/.  The  parameters  a,  and  a  3  occur  as  rigid 
motions  in  the  displacement  function  for  \m  too,  and  are 
therefore  not  suitable  for  these  two  terms. 
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Table  4.3  indicates  that  the  exact  functions  for  u  and  w 
are  well  represented  by  the  element  displacement  fields  for 
small  angles,  and  the  term  1 vcos0'  for  i/  can  be  approximated 
for  shallow  elements  by  the  rigid  element  rotation  around 
the  revolution  axis.  For  one  element  per  half  circumference 
the  element  coordinate  0  coincides  with  0°,  and  u  and  w  are 
exactly  represented.  The  boundary  conditions  for  this  case 
force  a 6  to  zero  which  thereby  causes  Av  to  be  zero. 

The  approximations  of  cos0  with  1  and  sin0  with  0  are 
worst  for  two  elements  per  semi-c i rcumf erence  (p  =  45°)  and 
improve  with  grid  refinement. 

For  the  terms  'vsin0'  and  'x2sin0'  in  v ,  there  are  no 
corresponding  terms  in  the  element  displacement  functions. 
This  suggests  that  a  large  number  of  elements  is  needed  to 
keep  the  error  by  the  approximation  for  sin0  and  cos0  in  an 
reasonable  range.  An  element  refinement  in  the  longitudinal 
direction  reduces  the  errors  arising  from  the  approximation 
of  displacement  terms  involving  x  and  x2. 

Summarizing  the  above  discussion  it  can  be  said  that 
the  element  should  work  well  for  the  linear  problem  of  a 
cylinder  under  bending.  However,  one  must  be  careful  in 
selecting  an  element  gridwork  to  keep  the  approximations 
of  the  displacement  field  in  an  reasonable  range. 


43 


4.2.3  Results  of  Linear  Tests 

In  order  to  evaluate  the  performance  of  the  present 
finite  element  and  the  influence  of  the  boundary  conditions, 
two  cylinders  are  chosen  for  the  linear  bending  problem. 

The  two  different  boundary  conditions  considered  are: 

1.  rigid  ends,  as  described  in  section  4.2.1  with 
V  =  W  =  00  =  0  , 

2.  semi-rigid  ends,  which  allow  the  stretching 
predicted  by  the  Donnell  solution  to  occur  at  the 
cylinder  end.  That  is,  \/,  \m ,  and  00  are  free  which 
allows  a  distortion  of  the  cross-section. 
Nevertheless,  the  circular  cross-section  remains 
plane  since  out-of-plane  forces  do  not  apply. 

In  addition  to  a  cylinder  of  the  same  geometry  as  that 
tested  (Stephens37)  another  cylinder  was  also  examined. 

The  large  L/R  ratio  was  chosen  in  order  to  study  whether  the 
effects  of  the  boundary  conditions  at  the  cylinder  end  would 
be  less  than  those  of  the  short  cylinder.  The  data  is  given 


in  Table  4.4. 


. 
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Table  4.4:  Cylinder  Data  for  Linear  Bending  Test. 


Long  cylinder 

Short  cylinder 

Length  (mm) 

2500 

1829 

Radius  (mm) 

90 

764.5 

Wall  thickness  (mm) 

1  .  1 

5.13 

Ratio  L/R 

27 . 7 

2 .39 

Ratio  R/t 

81.8 

149 

Young's  modulus  (MPa) 

200000 

202016 

Poisson ' s  ratio 

0.3 

0.3 

End  rotation 

0.01 

0.000485808 

Beam  deflection  (mm) 

6.25 

0.222136 

Donnell  solution  Av(mm) 

0.01944 

0.093145 

Beam  moment  (kNm) 

4.03079 

802290 

The  element  meshes  chosen  for  the  quarter  cylinder  modelled 
range  from  Ixi  to  10x10  elements,  but  were  concentrated  on 
even  numbers  for  the  circumferential  division  (NP)  in  order 
to  facilitate  calculation  of  the  parameter  av. 

In  all  cases  for  NP= 1 ,  the  results  obtained  are  as 
indicated  earlier  in  the  last  chapter.  That  is,  the  boundary 
conditions  at  the  top  and  bottom  prevent  any  circumferential 
stretching.  If  the  displacements  computed  are  expressed  in 
terms  of  the  parameters  a j ,  the  deflections  can  be  shown  to 
correspond  to  the  Donnell  solution  with  v=0.  The  latter 
coincides  with  the  beam  theory.  The  moment  calculated  is 
found  to  be  9.89  %  higher  than  the  beam  theory  would 
predict.  This  reflects  a  factor  of  1/(1-v2),  caused  by  the 
restriction  of  av.  A  solution  for  the  long  cylinder  was  also 
obtained  with  v=0  and  it  gives  a  bending  moment  equal  to 
that  from  beam  theory  thus  verifying  the  factor  of  1/(1-v2). 
The  moments  calculated  are  accurate  to  5  digits,  and  for  the 


. 
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deflections  no  difference  could  be  detected  from  the  beam 


theory . 


The  first  cylinder  investigated  is  the  long  cylinder, 
whose  maximum  bottom  fibre  deflection,  stretching  at  the 
mid-section  and  end  moment  are  shown  for  different  mesh 
sizes  in  Tables  4.5  to  4.7. 


Table  4.5:  Ratio  of  Bottom  Fibre  Centre 

Deflection  to  Beam  Theory  for  Long 
Cylinder  with  Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

1.18 

1  .  24 

1  .26 

1  .27 

1  .27 

4 

1  .033 

1.051 

1  .052 

1  .054 

1  .054 

6 

1  .  008 

1.014 

1.014 

1.014 

1.014 

8 

1 . 0024 

1  .  0050 

1  .  0050 

1 .0051 

1  .  0051 

1  0 

1  .0006 

1.0019 

1.0018 

1.0017 

1.0017 
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Table  4.6:  Ratio  of  End  Moment  to  Beam  Theory 
for  Long  Cylinder  with  Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

0.724 

0.539 

0.510 

0.496 

0.481 

4 

0.801 

0.828 

0.843 

0.849 

0.851 

6 

0.857 

0.940 

0.963 

0.971 

0.976 

8 

0.875 

0.978 

1  .004 

1.013 

1.018 

10 

0 . 882 

0.994 

1.021 

1  .032 

1  .035 

Table  4.7:  Ratio  of  Computed  Av  to  Donnell  Solution 
for  Long  Cylinder  with  Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

-6.7 

20 

20 

20 

20 

4 

3.6 

4.5 

4.6 

4.7 

4.7 

6 

2.2 

2.4 

2.5 

2.5 

2.5 

8 

1  .6 

1  .7 

1  .8 

1  .8 

1  .8 

10 

1  .3 

1  .5 

1  .5 

1  .5 

1  .5 

Table  4.5  shows  that  the  deflection  for  the  cylinder 
middle  converges  to  the  beam  deflection  with  an  increasing 
number  of  elements  in  the  longitudinal  direction.  A  similar 
convergence  is  found  for  the  stretching  of  the  mid-section 
of  the  cylinder,  shown  in  Table  4.7.  The  moment  converges 
with  finer  element  divisions  in  both  x  and  0  direction  to  a 
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value  above  the  beam  moment,  which  reflects  the  stiffening 
effect  of  the  rigid  ends.  As  mentioned  earlier,  this 
restraint  results  in  circumferential  stresses,  which  are 
relieved  by  an  upward  moving  of  the  cylinder  and  an 
emphasized  stretching  near  the  cylinder  ends.  Figure  4.3 
shows  the  difference  of  the  variation  of  slope  between  the 
10x10  element  mesh  and  the  beam  theory  (the  differences  in 
deflections  are  less  illustrative),  and  the  variation  of 
circumferential  stretching  versus  the  distance  from  the 
cylinder  end  in  the  longitudinal  direction  is  plotted  in 
Fig .  4.4. 


(Distance  from  Cylinder  End)  /  L 


Fig.  4.3:  Slope  Variation  of  Long  Cylinder  with  Rigid  Ends. 


- 

48 


(Distance  from  Cylinder  End)  /  L 


Fig.  4.4:  Variation  of  Parameter  av  for  Long 
Cylinder  with  Rigid  Ends. 


The  second  boundary  conditions,  referred  to  earlier  as 
semi-rigid  ends,  were  introduced  to  see  if  these  boundary 
conditions  would  better  represent  the  cylinder  behaviour 
associated  with  the  Donnell  solution.  The  ratios  of  the 
resulting  end  moment  and  the  paramter  av  for  the  long 
cylinder  are  shown  in  Table  4.8  and  4.9. 


49 


Table  4.8:  Ratio  of  End  Moment  to  Beam  Theory 

for  Long  Cylinder  with  Semi-Rigid  Ends. 


\  NP 
NX  \ 

2 

4 

6 

8 

10 

2 

-0.020 

-0.200 

-0.245 

-0.262 

-0.269 

4 

0.632 

0.666 

0.673 

0.676 

0.671 

6 

0 . 746 

0.827 

0.844 

0.850 

0.852 

8 

0.785 

0.883 

0.903 

0.910 

0.914 

10 

0.804 

0.909 

0.931 

0.939 

0 . 942 

Table  4.9:  Ratio  of  Computed  Av  to  Donnell  Solution 
for  Long  Cylinder  with  Semi-Rigid  Ends. 


\  NP 
NX  \ 

2 

4 

6 

8 

10 

2 

1  2 

14 

14 

14 

14 

4 

3.6 

4.  1 

4.3 

4.3 

4.3 

6 

2.  1 

2.4 

2.4 

2.5 

2.5 

8 

1  .  53 

1  .75 

1  .80 

1.8  1 

1  .82 

10 

1  .28 

1  .46 

1  .50 

1  .  52 

1  .52 

A  similar  table  for  deflections  is  not  given  for  this 
case  since  the  top  and  bottom  fibre  deflections  are  the  same 
as  predicted  by  the  beam  theory  and  the  Donnell  solution. 

The  stretching  is  found  to  be  constant  along  the  cylinder 
length  as  predicted  by  Donnell  and  is  a  little  better 
estimated  than  for  the  cylinder  with  rigid  ends.  The  moment 
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convergences  towards  the  beam  solution,  but  shows  quite 
unexpectedly  poor  values  for  less  than  6  elements  in  the 
longitudinal  direction. 

For  the  second  cylinder,  which  has  a  much  lower  L/R 
ratio  than  the  first  (2.4  versus  27.8),  the  circumferential 
stretching  is  expected  to  be  more  significant  than  for  the 
long  cylinder.  The  results  for  deflection,  the  paramter  av, 
and  moment  of  the  cylinder  with  the  rigid  ends  are  given  in 
Tables  4.10  to  4.12. 


Table  4.10:  Ratio  of  Bottom  Fibre  Deflection  to 
Beam  Theory  for  Short  Cylinder  with 
Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

2.455 

0.621 

0.549 

0.535 

0.528 

4 

1  .454 

0.640 

0.607 

0.594 

0.588 

6 

0.998 

0.632 

0.606 

0.596 

0.591 

8 

0.857 

0.629 

0.605 

0.596 

0.591 

10 

0.808 

0.627 

0.604 

0.596 

0.592 
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Table  4.11:  Ratio  of  Computed  av  to  Donnell  Solution 
for  Short  Cylinder  with  Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

-5.67 

1  .  070 

1.192 

1.197 

1.201 

4 

-1.83 

1  .000 

1.010 

1.021 

1  .025 

6 

-1.05 

0.967 

0.994 

1  .  004 

1  .009 

8 

0.368 

0.961 

0.989 

0.999 

1  .003 

10 

0.546 

0.958 

0.986 

0.996 

1.001 

Table  4.12:  Ratio  of  End  Moment  to  Beam  Theory 
for  Short  Cylinder  with  Rigid  Ends. 


\  NP 
NX  \ 

2 

4 

6 

8 

10 

2 

0.902 

1  .029 

1  .058 

1  .069 

1  .  074 

4 

0.892 

1.021 

1  .  049 

1  .060 

1  .064 

6 

0.887 

1.015 

1.041 

1  .  050 

1  .055 

8 

0.883 

1.010 

1  .033 

1  .  042 

1  .  046 

10 

0.880 

1  .007 

1  .027 

1  .  034 

1  .038 

The  bending  moment  is  found  to  converge  in  a  manner 
similar  to  that  for  the  long  cylinder  to  a  value  above  the 
beam  moment.  The  stretching  tends  to  a  value  near  Donnell's 
prediction.  The  deflections  appear  at  first  to  be  unusually 
small  since  they  converge  to  around  0.585  times  the  beam 
deformation.  The  reason  for  the  relatively  small 
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displacements  becomes  clear  from  inspection  of  the  deflected 
shape  of  the  cylinder,  shown  in  Fig.  4.5. 


(Distance  from  Cylinder  End)  /  L 

Fig.  4.5:  Deflection  of  Short  Cylinder  with  Rigid  Ends. 

In  addition  to  the  deflection  predicted  by  the  beam 
theory  the  inner  part  of  the  cylinder  undergoes  essentially 
a  rigid  body  motion  in  the  direction  opposite  to  the  bending 
deflection.  This  upward  displacement  is  0.091  mm  and  can  be 
attributed  to  the  circumferential  stress  caused  by  the 
restraint  of  the  rigid  ends.  The  similar  numerical  values 
for  this  displacement  and  for  Av  (0.093  mm  in  Table  4.4) 
suggests  that  as  the  element  grid  is  refined,  the  magnitude 
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of  this  rigid  body  displacement  should  approach  the  value  of 
av  from  the  Donnell  solution.  Flugge25  predicted  a  similar 
outward  deformation  for  the  ends  of  axially  compressed 
cylinders.  He  showed  this  disturbance  to  occur  within  a 
distance  of  circa  (Rt)1/2,  which  for  the  short  cylinder  is 
62  mm.  Since  for  the  finest  element  mesh  used,  the  shell 
element  length  is  91  mm,  the  displacement  fields  can  only 
approximate  the  localized  curvature.  In  order  to  study  the 
upward  movement  in  detail,  the  end  region  should  be  modelled 
with  at  least  one  or  two  elements.  The  deflections  of  the 
long  cylinder  are  less  affected  by  the  rigid  ends.  However, 
the  induced  strains  and  stresses  cannot  be  neglected. 

The  use  of  long  elements  (125  mm  long  for  a  10x10  element 
mesh)  is  not  adequate  for  the  region  affected  by  the  end 
constraint  (ca.  10  mm).  The  long  elements  force  the 
stretching  to  develop  farther  away  from  the  cylinder  end  and 
therefore  influence  the  deflections  of  the  cylinder  over  a 
larger  region  and  increase  the  rotational  stiffness. 
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0istance  from  Cylinder  End)  /  L 

Fig.  4.6:  Variation  of  Av  of  Short  Cylinder  with  Rigid  Ends. 

Fig.  4.6  shows  the  convergence  of  av  to  Donnell's  pre¬ 
diction:  At  the  cylinder  ends  av  is  zero  and  the  transition 
region  for  av  encompasses  the  first  three  elements  in  the 
axial  direction. 

With  the  application  of  the  semi-rigid  boundary 
conditions,  results  similar  to  those  for  the  long  cylinder 
are  obtained:  av  is  constant  over  the  cylinder  length  and 
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the  deflections  correspond  exactly  to  the  beam  theory. 

The  variation  of  av  and  the  end  moment  with  the  element 
mesh  are  given  in  Tables  4.13  and  4.14. 

Table  4.13:  Ratio  of  Computed  Av  to  Donnell  Solution 
for  Short  Cylinder  with  Semi-Rigid  Ends. 


\  NP 
NX  \ 

2 

4 

6 

8 

10 

2 

0.917 

1  .045 

1  .075 

1  .085 

1  .090 

4 

0.856 

0.974 

1  .002 

1.012 

1.016 

6 

0.845 

0.961 

0.988 

0.998 

1  .  003 

8 

0.84  1 

0.957 

0.984 

0.993 

0.998 

10 

0.839 

0.955 

0.982 

0.991 

0.996 

Table  4.14:  Ratio  of  Cylinder  Moment  to  Beam  Moment 
for  Short  Cylinder  with  Semi-Rigid  Ends. 


\  NP 

NX  \ 

2 

4 

6 

8 

10 

2 

.8302 

.9465 

.  9706 

.  9792 

.  9833 

4 

.8348 

.  9529 

.9774 

.9862 

.  9903 

6 

.8356 

.  9551 

.  9787 

.  9875 

.9916 

8 

.8359 

.  9546 

.  9791 

.  9879 

.  9920 

10 

.8360 

.9547 

.  9793 

.  988  1 

.  9923 
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As  opposed  to  the  long  cylinder,  the  moment,  av,  and 
the  deflections  converge  to  the  values  of  Donnell's  solution 
with  an  increasing  number  of  elements  in  the  c i rcumf erent ial 
direction.  For  a  given  total  number  of  elements  the  long  and 
the  short  cylinders  have  different  'optimal'  mesh  sizes. 

For  the  long  cylinder  the  best  ratio  of  NX  to  NP  is  10:2, 
and  for  the  short  cylinder  NX:NP  is  around  4:10.  For  both 
cases  a  good  mesh  seems  to  be  that  one  when  the  curved  sides 
of  the  elements  are  as  long  as  the  longitudinal  dimension. 
The  exact  mesh-ratios  for  equilateral  elements  would  be  for 
the  long  cylinder  (NX:NP)  10:2.26  and  for  the  short  cylinder 
3.81:10. 

It  is  interesting  to  note  that  the  so  called  'optimal' 
meshes  discussed  above  have  the  least  total  inter-element 
boundary  length  for  a  fixed  number  of  elements.  If  one  could 
assume  that  the  effects  of  element  nonconformity  are 
contributed  similarly  for  circumferential  and  longitudinal 
inter-element  boundaries  and  that  the  total  effect  is 
dependent  on  the  total  inter-element  boundary  length,  then 
it  follows  that  meshes  with  equilateral  elements  would 
suffer  the  least  due  to  nonconformity. 

The  results  discussed  above  show  that  grid  meshes  with 
equilateral  elements  give  the  best  results  for  a  given 
number  of  elements.  Rigid  ends  cause  the  circumferential 
strain  predicted  by  Donnell  to  be  developed  by  the  elements 
near  the  cylinder  end.  Thereby  the  cylinder  undergoes  an 
upward  lifting  equal  to  av.  For  short  cylinders  this  effect 


. 
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is  large  compared  with  the  deflections  from  beam  theory, 
whereas  the  deflections  of  long  cylinders  are  less  affected. 
Unfortunately,  the  circumferential  stretching  has  not  been 
reported  yet  from  structural  tests,  so  that  it  could  be 
compared  to  the  results  obtained  in  this  study. 

In  the  preceding  section  it  is  shown  that  the  element 
displacement  field  of  the  present  element  approximates  the 
displacements  of  a  cylinder  under  bending  for  sufficiently 
small  element  dimensions.  The  best  results  for  the  linear 
bending  problem  were  obtained  with  about  equilateral 
elements.  It  is  shown  that  the  cylinder  is  significantly 
influenced  by  the  boundary  conditions  at  the  cylinder  end. 

If  the  nodal  points  at  the  circumference  between  the  top  and 
bottom  fibre  are  free  to  move  along  the  circumference  and  to 
rotate  around  the  local  longitudinal  axis  (semi-rigid 
cylinder  end)  the  top  and  bottom  fibre  deflections  of  the 
cylinder  correspond  exactly  to  the  beam  theory  and  the 
circumferential  stretching  is  constant  with  respect  to  the 
cylinder  length. 

Rigid  cylinder  ends  prevent  circumferential  strain  at 
the  cylinder  end  and  thereby  cause  circumferential  stresses 
which  are  relieved  towards  the  cylinder  middle  by  an  upward 
movement  of  the  cylinder  in  a  direction  opposite  to  the 
bending  deflections. 

In  real  cylinders,  boundary  conditions  are  neither 
rigid  nor  'semi-rigid'  but  lie  somewhere  in  between  and  one 
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has  to  decide  which  boundary  condition  comes  nearest  to 
structural  reality. 


5.  Nonlinear  Problems 


5 . 1  I nt roduct i on 

The  geometric  nonlinear  behaviour  of  circular  shell 
elements  has  been  studied  mostly  using  cylindrical  arch, 
panel,  and  barrel  vault  problems  2 4  ’  2  1  ~ 2 9  ’  3 5  .  The  pure 
bending  of  finite  cylinders,  which  represents  the  main  part 
of  this  chapter,  has  been  analyzed  mostly  by  using  half- 
analytical  methods  and  finite  difference  techniques 

24’25’36>38 

• 

In  order  to  test  the  program  developed  for  this  study 
and  to  evaluate  the  performance  of  the  shell  element  it  is 
first  tested  on  cylindrical  arches  and  barrel  vaults. 

For  simplicity  only  concentrated  loads  are  considered. 

Then  the  rigid  body  motions  oc curing  in  a  cylinder  under 
bending  are  examined  and  the  resulting  induced  strains  for 
the  present  element  are  discussed.  Finally  the  problem  of  a 
cylinder  under  bending  is  examined  and  results  obtained  with 
the  present  shell  element  are  discussed. 
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5.2  The  Circular  Arch 

Sabir  and  Lock34  investigated  the  geometric  nonlinear 
behaviour  of  a  circular  arch  element  on  arches  with  R/t 

ratios  ranging  from  43  to  500.  The  other  data  for  the  arches 
studied  are: 

L  =  100  in., 

E  =  1 0  7  ps i . , 

A  =  1  in.2  as  area  of  cross-section, 

I  =  1  in.4  as  moment  of  inertia  of  cross  section, 


2P 


Fig.  5.1:  Circular  Arch  under  Concentrated  Load. 

For  one  particular  arch  Sabir  and  Lock  expected  horizontal 
and  vertical  tangents  in  the  load-deflection  curve.  In  order 
to  follow  the  equilibrium  path  through  these  regions, 
they  employed  a  procedure  which  switched  automatically  from 
load  to  displacement  control  and  vice  versa.  For  an  arch 
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with  R/t=500  Sabir  and  Lock  demonstrated  that  an  increasing 
number  of  elements  reduces  the  load  significantly.  A  reason 
for  this  is  that  the  element  can  only  represent  a  linear 
change  of  curvature  (compare  Eq .  3.2e).  Localized  changes 
in  slope  for  deep  arches  (the  maximum  deflection  for  the 
deepest  arch  was  10  %  of  the  radius)  might  require  a  very 
fine  mesh. 

In  the  present  study  the  shell  thickness  and  the 
element  length  were  chosen  to  give  the  same  cross-section 
properties  as  the  arches  of  Sabir  and  Lock34.  In  order  to 
simulate  the  displacement  field  used  by  Sabir  and  Lock  the 
displacements  corresponding  to  the  longitudinal  axis  and 
Poisson's  ratio  are  set  to  zero.  Neglecting  the  parameters 
corresponding  to  the  x-coordinate ,  the  displacement  field 
used  by  Sabir  and  Lock  is  obtained. 

For  the  nonlinear  strains  Sabir  and  Lock  assumed 

60  =  (\/,0+M/)/R  +  1/2  fi0  2  , 

fi  0  =  10,0/ R.  (5.1) 

Compared  with  $0= (w, 0-v) /R  used  in  the  present  study, 
the  expressions  above  correspond  to  a  more  'shallow'  theory. 
As  done  by  Sabir  and  Lock,  the  nonlinear  strain  terms 
involving  £0  2  and  fix ,  are  set  to  zero.  Since  the  circular 
arch  is  a  plane  structure,  the  strain  terms  fix2r  fix 3 ,  and 


. 
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£0,  should  be  zero.  However,  the  displacement  field 

(Eqs.  3.1)  causes  these  strain  terms  to  have  nonzero  values 

that  are  assumed  to  be  negligibly  small. 

The  program  developed  for  this  study  allows  either 
displacement  control  or  load  control.  For  the  arch  problem 
prescribed  displacements  are  used.  Thus  only  part  of  the 
equilibrium  path  can  be  obtained.  The  recalculation  of  the 
tangent  stiffness  matrix  during  the  equilibrium  iteration  is 
found  to  take  about  the  same  time  as  the  computation  of  the 
equilibrium  forces,  so  that  the  full  Newton-Raphson  method 
is  used. 

Using  symmetry,  only  one  half  of  the  arch  needs  to  be 
modelled  for  which  ten  elements  were  used.  The  load- 
deflection  curves  obtained  are  given  in  Fig.  5.2  and  5.3. 
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Fig.  5.2:  Load  Deflection  Curve  for  Cylindrical  Arch 
(R=250  in.)  under  Concentrated  Load. 
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Load  (lbs) 

Fig.  5.3:  Load  Deflection  Curve  for  Cylindrical  Arch 
( R= 1 50  in.)  under  Concentrated  Load. 


The  results  obtained  are  similar  to  those  of  Sabir 
and  Lock  except  that  the  equilibrium  path  is  slightly  above 
theirs.  This  difference  can  be  attributed  not  only  to  the 
more  general  strain  expressions  used  herein  but  also  to 
a  different  element  mesh.  Unfortunately  a  conclusive 
comparison  is  not  possible  because  Sabir  and  Lock  do 
not  identify  the  element  gridwork  used.  Due  to  the  high 
computing  costs  associated  with  nonlinear  problems, 
a  convergence  study  with  finer  element  meshes  is  not  done. 
That  study  would  be  necessary  to  determine  the  influence, 


. 
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if  any,  of  the  different  strain  displacement  expression  used 
here . 


Table  5.1:  Loads  (lbs)  for  Prescribed 
Deflections  of  Two 
Cylindrical  Arches. 


A  ( in  .  ) 
or  5w/c 

R=250  in. 

R=  1  50  in. 

1 

939.6 

507.8 

2 

1489 

759.7 

3 

1789 

819.3 

4 

1927 

734 . 3 

5 

1954 

535.0 

6 

1898 

24  1.2 

7 

1776 

-  94.83 

8 

1  596 

-28  1  . 1 

9 

1362 

-174.8 

10 

1074 

242  .  1 

1  1 

730.0 

1003.6 

12 

323.2 

2159.0 

13 

-157.6 

— 

14 

-734.5 

— 
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5.3  The  Barrel  Vault  Problem 

After  Sabir  and  Lock34  applied  the  geometric  nonlinear 
theory  to  arches,  they  tested  various  cylindrical  shell 
formulations  for  a  barrel  vault  under  external  pressure. 
Since  the  strain  element  by  Ashwell  and  Sabir4  showed  the 
best  convergence,  the  element  was  subsequently  used  for  the 
problem  of  a  point  loaded  barrel  vault  as  shown  in  Fig.  5.4. 


Fig.  5.4:  Hinged  Barrel  Vault  under  Single  Load. 


The  data  for  the  cylindrical  panel  are: 

L  =  20  in .  , 

R  =  100  in.  , 
b  =  20  in .  , 
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t  =  1  or  0.5  in . , 

E  =  450000  psi , 
v  =  0.3. 

For  the  computation,  one  quarter  of  the  panel  is 
divided  into  4x4  elements.  The  curved  edges  are  free  and 
the  longitudinal  edges  are  hinged,  with  rotation  about  the 
longitudinal  axis  the  only  movement  allowed.  Since  the  load 
deflection  curve  is  expected  to  exhibit  horizontal  tangents, 
the  vertical  displacement  under  the  load  P  is  prescribed  in 
steps  of  0.1  inches  as  in  Ref.  35. 

As  in  their  study,  the  nonlinear  strain  terms  fix ,  ,  fix  2  , 
fi0 , ,  and  fi& 2  are  assumed  to  be  negligibly  small.  The  load- 
deflection  curves  obtained  follow  the  published  curves  of 
Sabir  and  Lock35.  A  more  detailed  comparison  is  difficult 
since  the  actual  numerical  results  obtained  by  Sabir  and 
Lock  were  not  published.  The  results  of  the  present  study 
are  given  in  Table  5.2. 


. 


Loads  (lbs)  For  t=1  in..  Curve 
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H 


200 

175 

150 

125 

100 

75 

50 

25 

0 


0.0  0.2  0.4  0.6  0.8  1.0 


Deflection  (in.) 


Fig.  5.5:  Load  Deflection  Curve  of  a  Hinged  Barrel  Vault 
under  Single  Load. 


Loads  (lbs )  for  t=0.5  in..  Curve  II 
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Table  5.2:  Loads  for  Prescribed  Deflections  of  a 
Hinged  Barrel  Vault  under  Single  Load. 


Deflect  ion 

Load  P  (lbs) 

A  ( in  .  ) 

t = 1  in. 

t  =  0 .5  in . 

0.  1 

207.8 

49.84 

0.2 

369.7 

87.17 

0.3 

488.7 

112.6 

0.4 

569.5 

125.2 

0.5 

621.0 

121.0 

0.6 

657.7 

90.60 

0.7 

698 . 6 

51.44 

0.8 

762 . 9 

44.78 

0.9 

865.5 

63.56 

1  .0 

1016 

102.3 

1  .  1 

12  19 

160.1 
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5.4  Nonlinear  Strains  and  Rigid  Body  Motions 

As  shown  in  the  previous  chapters  the  finite  element 
displacement  fields  used  include  rigid  body  motions 
associated  with  the  linear  strain  displacement  equations. 
With  the  inclusion  of  the  nonlinear  strain  terms  certain 
rigid  body  motions  are  no  longer  properly  represented. 
Introducing  rigid  translations  along  any  of  the  x,  y,  or  z 
axes  (see  Fig.  2.2)  into  Eq .  3.13  gives  zero  strains.  These 
motions  are  therefore  properly  represented. 

The  rotations  around  the  x,  y,  and  z  axes  are  discussed 
for  small  rotations  in  section  2.3.  With  the  introduction  of 
the  exact  displacements  some  of  the  rotations  cannot  be 
exactly  represented  by  the  element  and  may  cause  significant 
strains  for  even  relatively  small  rotations.  This  problem  is 
analyzed  in  further  detail  below. 

5.4.1  Rotation  around  the  x-Axis 

A  rotation  about  the  x-axis  occurs  for  elements  at 


the-s ide 

of  a  cylinder 

under 

bending,  since 

the 

vertical 

movement 

of  the  sides 

is  larger  than  that  at 

the  top  or 

bottom  of 

the  cylinder 

.  If  the  magnitude  of 

the 

rotation 

is  A,  then  the  corresponding 

displacements  are 

given  by 

U  = 

0, 

(5. 

2a) 

V  = 

R  sinA , 

(5. 

2b) 

iM  = 

-  R ( 1 -cos A ) . 

(5. 

2c  ) 

. 
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This  motion  is  represented  exactly  by  the  element  displace¬ 
ment  field  and  therefore  does  not  induce  any  strains. 

5.4.2  Rotation  around  the  y-Axis 

A  rotation  about  the  y-axis  occurs  at  the  top  and 
bottom  fibre  of  a  cylinder  under  bending  and  is  largest  at 
the  ends  of  the  cylinder. 

The  theoretical  displacements  for  a  rigid  body  motion  of 
a  cylindrical  element  are  given  below  for  a  rotation  of 
magnitude  A. 

U  =  R  sinA  cos0  -  x  (1-cosa)  ,  (5.3a) 

V  =  x  sinA  sin0  +  R(I-cosa)  [sin0  cos0],  (5.3b) 

iv  =  -  x  sinA  cos0  -  R(I-cosa)  [cos20].  (5.3c) 

The  terms  in  square  brackets  cannot  be  represented  by  the 
element  displacement  fields,  since  neither  v  nor  u/  have  the 
required  trigonometric  terms.  The  finite  element  displace¬ 
ment  fields  determined  by  setting  the  nodal  displacements  to 
values  consistent  with  Eqs.  5.3,  are 

U  =  R  sinA  cos0  -  x  (1-cosa)  ,  (5.4a) 

v/  =  x  sinA  sin0  +  R  (1-cosa)  [cos  (p)  {2sin0-0sin  ( p )  /p }  ]  , 

(5.4b) 

IV  =  -  x  sinA  cos0  -  R  (  1  -cosa  )  [cos  (p)  {  2cos0-cos  (p)  }  ]  . 

(5.4c) 


. 


It  is  seen  that  u  is  exactly  represented,  and  v  and  IV  are 
quite  well  approximated  for  a  larger  number  of  elements  in 
the  circumferential  direction. 
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With  Eqs.  3.13  we  obtain  for  the  induced  strains: 

Gx  =  - ( 1 -cos A ) + 1 /2 ( 1 -cos A ) 2 + 1 /2  sin2A 
=  0, 

60  =  ( 1 -cos A ) f+ 1 /2  sin2Asin20+  1/2  [ (  1  -cos A ) f ] 2 

+  1/2  [ ( 1-cosa) sin(p)  cos(p)  0/p])2, 
yx0  =  (l-cosA)sinA  [1  -2/3  p2sin0  -sin(p)  cos2(p)0/p], 
kx  =  0 , 

k0  =  ( 1 -cosa ) sin (p)cos (p)/pR, 

kx0  =  0 ,  (5.5) 

with  f  =  cos(p)[p  cos (p) -sin (p) ]/p. 

With  the  assumption  that  higher  terms  in  A  are 
negligibly  small  relative  to  other  terms  the  strain 
expressions  are  simplified: 

60  =  A 2  d , 

where  d  is  a  function  of  0  and  p. 

yx0  =  0 ( A  3 ) , 
k0  -  0 ( A  2  )  . 

The  strain  7x0  is  of  higher  order  in  A  and  can  be  therefore 
neglected  if  compared  to  60.  The  curvature  k0  gives  a 
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maximum  c i rcumf erental  strain  of  about  't-A2/4R',  which  can 
be  neglected  for  large  R/t  ratios. 

Taking  the  centre  rotation  of  the  finite  element  as  the 
rigid  body  rotation,  the  rotation  for  the  top  element  at  the 
cylinder  end  is: 


A  =  /Scr  cos  ( rt/2NP )  (1-1/2NX). 


(5.6) 


For  a  fine  element  mesh  the  factor  (1-1/2NX)  can  be  approxi¬ 
mated  by  1  . 

The  strain  60  induced  by  the  rigid  body  motion  is 
denoted  by  60+ .  It  is  compared  to  the  longitudinal  strain 
which  causes  the  classical  buckling  stress  5cr. 


60+  =  d/2  [  /3c  r  cos  (  tt/2NP )  ]  2  . 


(5.7) 


Assuming  v  as  0.3,  60+  can  be  expressed  in  terms  of  the 
critical  buckling  strain: 


60+  =  d  ( tL  2£c  r/ 1 3 . 22R 3 )  [ cos ( n/2NP ) ] 2 . 


(5.8) 


The  induced  strain  60+  is  largest  for  0  =  ±0  and  is 


computed  below  for  various  numbers  of  elements  in  the 
circumferential  direction. 


. 
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Table  5.3:  Circumferential  Strain  Induced  by 
Rotation  around  the  y-Axis. 


NP 

2 

4 

6 

8 

10 

-60 +  -R3 

6c r • tL 2 

0.0239 

0.0106 

0.0054 

0.0032 

0.0021 

As  shown  in  Table  5.3  the  strain  60  +  tends  to  zero  for  a 
large  number  of  elements  in  the  circumferential  direction. 
For  a  thick,  long  cylinder  the  longitudinal  strain  may 
become  so  large  that  a  large  number  of  elements  is  necessary 
to  ensure  reasonable  results.  However,  these  spurious 
strains  are  very  localized  at  the  top  or  bottom  of  the  ends 
of  the  cylinder  and  decay  rapidly  with  increased  longitu¬ 
dinal  and  circumferential  distance  due  to  the  term  'A2'. 

5.4.3  Rotation  around  the  z-Axis 

Rotations  about  the  z-axis  occur  at  the  sides  of  the 
cylinder  and  are  largest  for  the  side  elements  at  the 
cylinder  ends.  The  theoretical  rigid  body  displacements 
associated  with  this  motion  are  given  below  for  a  rotation 
of  magnitude  A. 

U  -  R  sinA  sin0  -  x  (1-cosa),  (5.9a) 

V  =  ~  x  sinA  cos0  -  R  (1-cosa)  [sin0  cosh],  (5.9b) 

ia/  =  -  x  sinA  sin0  -  R  (1-cosa)  [sin20].  (5.9c) 

The  element  displacement  functions  approximate  the  above 
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functions  as  shown  below. 

u  =  R  sinA  sin0  -  x  (1-cosa),  (5.10a) 

v  =  —  x  sinA  cos0 

-  R  (1-cosa)  [cos(p)  { 2sin0-0sin ( p ) /p } ] ,  (5.10b) 

w  =  -  x  sinA  sin0 

-  R  (1-cosa)  [ s in  2 (p) +2cos0 {cos (p) -cos0 } ] .  (5.10c) 

Substituting  the  element  displacement  field  into  the  strain 
expressions  gives 

6x  =  -(1-cosa)  +  1/2  (1-cosa)2/2  +  1/2  sin2A, 

=  0, 

60  =  -( 1-COSA )( 1 +f)  +  1/2  ( 1 -COSA ) 2 ( 1 +f) 2 

+  1/2[(1-cosa)  sin(p)  cos(p)  0/p] 2 
+  1/2  sin2A  cos  2  0 , 

yx0  =  (l-cosA)sinA  [~cos0  +  cos0(1+f) 
+sin(p)cos(p)0sin0/p] , 
kx  =  0 , 

k0  =  (1-cosa)  sin(p)  cos(p)  /pR, 

kx0  =  0 .  (5.11) 

For  small  rotations  A,  only  the  lowest  powers  of  A  for  each 
strain  component  need  to  be  considered. 

60  =  -  ( A  2 /2 )  [sin20+cos(p)  {cos (p) -sin (p)/p) ] , 

yx0  =  ( A 3 /2 )  cos(p)/p  [ 0sin (p) sin0+p  cos (p) -sin (p) ] , 


. 
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k®  =  ( A 2 /2 )  sin(p)  cos(p)/pR.  (5.12) 

It  is  seen  that  the  strain  yx0  can  be  neglected  with 
respect  to  60  and  k0 .  The  curvature  k0  gives  a  maximum 
circumferential  strain  of  about  't-A2/4R',  which  can  be 
neglected  for  large  R/t  ratios. 

The  maximum  value  of  60  occurs  at  0  =  ±p.  The  circum¬ 
ferential  strain  can  be  expressed  by  'd-(-A2/2)',  where  d  is 
a  factor  depending  on  NP  and  the  angle  0.  For  example  with 
NP=4,  d  is  0.36  and  converges  to  zero  with  increasing  NP. 

This  rotation  is  equivalent  to  the  derivative  of  the 
tangential  displacement  v  with  respect  to  the  longitudinal 
coordinate  x,  calculated  at  the  element  origin.  For  the  side 
elements  at  the  cylinder  ends  we  obtain: 

A  =  p  cos  (  tt  /  2NP )  (1-1/2NX)  if  NP  is  even, 

=  j8  cos  ( rr/2NP )  for  NX»  1  .  (5.13) 

Letting  /3  be  the  critical  elastic  buckling  rotation  ficr  and 
v=0.3  the  induced  circumferential  strain  60 +  can  be  defined 
as 

60+  =  d  6cr  tL 2  / 1  3 . 22R 3  cos  2  (  rr/2NP )  , 

where  €cr  is  the  longitudinal  strain  corresponding  to  the 
classical  buckling  stress. 
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Table  5.4:  Circumferential  Strain  Induced  by 
Rotation  around  the  z-Axis. 


NP 

2 

4 

6 

8 

10 

-€& +  -R3 

6c  r • tL 2 

0.0275 

0.0075 

0 . 0034 

0.0019 

0.0012 

5.4.4  Summary  of  the  Rigid  Body  Rotations 

It  was  demonstrated  that  a  rigid  body  motion  around  the 
x-axis  does  not  induce  spurious  strains. 

The  strains  induced  by  rotations  around  the  other  two 
axes  are  reduced  approximately  quadrat ically  for  an  increase 
in  the  number  of  circumferential  elements.  Except  for  the 
case  with  NP=2  the  strains  due  to  rotations  around  the 
y-axis  are  larger  than  those  of  the  z-axis. 


Table  5.5:  Maximum  of  Induced  Strains  from  Rigid 
Body  Motions. 


Long 

Cylinder 

Short 

Cy 1 i nder 

Cylinder  of 
Stephens  et  al . 

L 

2500 

1829 

2000 

R 

90 

764.5 

100 

t 

1  .  1 

5.13 

1 

tL  2 /R 3 

9.43 

0.038 

4 

NP 

2 

0.259 

0.0011 

0.110 

<90 + 

4 

0.100 

0.0004 

0 . 042 

6 

0.051 

0.0002 

0 .022 

6c  r 

8 

0.030 

0.0001 

0.013 

10 

0.020 

0.0001 

0.008 

. 
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Considering  the  induced  strains  described  above, 
the  analysis  of  cylinders  with  a  high  ratio  t.L 2  /R 3  should 
be  done  with  some  care  using  the  present  element.  The  short 
cylinder  has  a  very  low  tL2/R3  ratio  when  compared  to  the 
other  cylinders  and  therefore  is  less  affected  by  strains 
from  rigid  body  motions. 

The  induced  negative  circumferential  strains  cause  the 
element  to  develop  compressive  stresses  in  the  circumferen¬ 
tial  direction.  These  can  be  relieved  by  an  increase  of  the 
circumference  (that  is  an  increase  of  the  radius  of  the 
cylinder).  With  a  larger  radius  the  bending  stiffness  of 
the  cylinder  is  increased.  The  short  cylinder  remains 
essentially  unaffected  but  the  induced  strains  for  the  long 
cylinders  will  tend  to  reduce  the  ovalization  of  the  cross- 
section  which  thereby  limits  the  reduction  of  the  bending 
st  i  f  f ness . 

Compared  with  the  arch  and  the  barrel  vault  problem  the 
geometric  nonlinear  bending  of  a  cylinder  is  particularly 
difficult.  The  deflections  of  the  barrel  vault  are  in  the 
order  of  the  shell  thickness  t.  The  only  rigid  body  rotation 
occurring  for  the  circular  arch  is  the  rotation  around  the 
longitudinal  axis  which  can  be  exactly  represented  by  the 
element  displacement  functions.  The  circular  cylinder  under 
bending  undergoes  deformations  in  the  order  of  20  times  the 
thickness  and  there  are  significant  rigid  body  motions. 

In  the  finite  element  model  these  result  in  induced  strains. 


. 
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Although  the  induced  circumferential  strains  are  small 
compared  to  the  longitudinal  strains  from  bending  they  will 
tend  to  increase  the  diameter  of  the  cylinder  and  thereby 
alter  significantly  the  behaviour  of  the  cylinder. 
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5.5  Cylinder  under  Bending 


5.5.1  Review  of  Earlier  Investigations 

Flugge  indicates  in  Ref.  26  for  the  buckling  problem  of 
a  cylinder  under  bending  that  the  bending  stiffness  for 
small  displacements  agrees  with  the  linear  theory  of 
Donnell,  but  with  increasing  deflections  (end  rotation)  the 
mid  section  of  the  cylinder  ovalizes  and  the  section  modulus 
is  reduced.  As  the  end  rotation  increases  the  bending  moment 
increases  at  a  decreasing  rate  until  it  reaches  a  maximum 
(which  is  referred  to  as  the  buckling  moment)  after  which  it 
then  decreases. 

Stephens  et  al .  3 8  showed  for  cylinders  with  a  ratio  R/t 
of  100,  that  the  buckling  moment  is  equal  to  the  classical 
buckling  moment  Mcr  and  decreases  with  increasing  L/R  ratio 
to  Brazier's  solution.  Using  a  finite  difference  technique 
they  showed  the  buckling  mode  that  occurs  to  be  a  combi¬ 
nation  of  longitudinal  wrinkles  and  an  ovalization  of  the 
cross-section.  They  defined  the  buckling  moment  to  be  the 
moment  for  which  large  deflections  or  ovalization  occurs 
with  increases  in  moment  of  the  order  of  0.01  %.  The  ovali¬ 
zation  is  shown  to  depend  largely  on  the  L/R  ratio.  Since 
the  development  of  longitudinal  wrinkles  is  likely  to  occur 
only  for  thin  cylinders,  the  ovalization  effect  should  be 
studied  with  thick  cylinders  since  otherwise  a  combination 
of  both  buckling  modes  may  occur. 
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Fabian24  investigated  the  nonlinear  bending  of  infinite 
cylinders  and  separated  the  ovalization  from  the  wrinkling 
effect  by  restricting  the  possible  displacement  functions. 
With  longitudinal  wrinkling  prevented  the  bending  moment  was 
found  to  be  linear  up  to  stresses  of  25  %  of  6cr.  Then  the 
moment  increased  less  than  proportionally  and  reached  a 
maximum  of  around  53  %  of  Me r.  This  is  only  slightly  less 
than  predicted  by  the  Brazier  solution. 

The  results  of  structural  tests  are  largely  dependent 
on  imperfections  and  material  nonl i near i t i es .  Since  most 
analytical  studies  include  only  geometrical  nonlinearities 
and  simplified  imperfections,  a  discussion  of  structural 
tests  is  not  done  in  this  study.  A  review  of  these  tests  is 
given  in  Ref.  37. 

5.5.2  Boundary  Conditions  and  Their  Representation 

In  many  structures  that  incorporate  cylinders, 
the  cylinders  have  very  complex  boundary  conditions. 

The  ends  are  often  attached  to  stiff  plates  to  ensure  that 
the  cross-sect  ion  is  maintained.  Often  longitudinal  or 
circumferential  stiffeners  are  present  to  increase  the  load 
limits. 

In  most  geometric  nonlinear  studies  of  cylinders  under 
bending,  the  cylinder  is  idealized  as  a  perfect  tube. 

The  end  condition  adopted  depends  on  the  type  of  cylinder 
investigated  and  the  kind  of  analysis  performed. 
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For  infinitely  long  cylinders  a  complete  torus  has  been 
considered  (Flugge25,  Fabian24).  Seide  and  Weingarten 3 6 
described  the  ends  of  finite  cylinders  by  restricting  the 
radial  deflections  to  zero  but  allow  a  warping  of  the  cross- 
section.  Stephens  et  al .  3 8  investigated  finite  cylinders  by 
applying  stresses  on  the  cylinder  ends  which  were  distri¬ 
buted  according  to  the  linear  beam  theory.  In  order  to 
minimize  the  warping  or  distortion  of  the  cross-section 
the  cylinder  end  was  stiffened  with  two  cylindrical  rings. 

Although  they  state  that  a  distortion  of  the  cross- 
section  was  thereby  prevented,  the  author  believes  that  the 
rings  allow  a  circumferential  stretching  as  discussed  in 
section  4.2.3.  Otherwise  an  upward  buckle  near  the  cylinder 
end  similar  to  Fig.  4.5  would  be  expected. 

A  third  way  to  describe  boundary  conditions  is  to 
prescribe  displacements  at  the  cylinder  ends,  which  is 
discussed  in  the  following  sections. 

5.5.3  Prescribed  Displacements  at  the  Cylinder  Ends 

In  prescribing  the  displacements  at  the  cylinder  ends 
the  circular  cross-sect  ion  is  retained  and  a  warping  or 
distortion  of  the  cylinder  end  is  prevented.  However,  one 
has  to  consider  that  rigid  ends  present  a  problem  which  is 
different  from  the  infinite  cylinder  and  might  give  rise  to 
stresses  or  strains  which  deform  the  cylinder  unexpectedly 
at  the  ends  (e.g.  Fig.  4.5). 
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5.5.3.  1  Shortening  of  Cylinder  due  to  Bending 

If  a  cylinder  is  bent  by  applied  moments  (or  end 
rotations  as  in  the  present  study)  the  linear  beam  theory 
predicts  a  quadratic  displacement  function.  Under  finite 
deformations  the  cylinder  stretches  longitudinally  because 
the  deformed  neutral  axis  describes  an  arc  as  opposed  to  a 
straight  line.  In  the  nonlinear  analysis  of  cylinders,  large 
end  rotations  give  rise  to  a  net  axial  force  unless  the 
cylinder  ends  are  allowed  to  move  axially.  Using  L  as  the 
new  cylinder  length  and  R  as  the  radius  of  the  curvature  of 
the  bent  cylinder  the  elongation  AL  and  the  strain  6x  for 
fixed  ends  can  be  expressed. 

AL  =  L-L,  (5.14) 

Assuming  the  form  of  the  bent  cylinder  is  a  circular  arch, 

R  and  L  can  be  expressed  by  the  end  rotation  /?  and  the  new 
cylinder  length  L. 

L  =  2  R  sin/3 

=  L  sin/?//?.  ( 5  .  15) 

Inserting  this  into  Eq.  5.14  we  get 

AL  =  L  (  1  -sin/?//?)  , 

Gx  =  AL/L  =  1  -  sin/?/ /? 

=  /? 2  /6  for  P«^  .  (5.16) 
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A  better  insight  of  the  effect  of  £x  is  gained  if  the 
induced  stress  6  is  compared  to  the  critical  stress  5cr. 

5  =  E  2  /6 , 

5c r  =  j8cr  E  R/2L, 

/Scr  =  (t  L/2R 2  )  -[3(1— v2)]-1  '  2  .  (5.17) 

Substituting  /3cr  for  $  we  obtain: 

max  5/5cr  =  tL2/24R3 [ 3 ( 1 -v 2 ) ] ' 1 7 2 . 

=  tL2/39 . 65  R3  for  v=0.3. 

The  ratio  of  max  5/5cr  is  given  for  three  cylinders  in 
Table  5.6. 


Table  5.6:  Ratio  of  max  5/5cr  for  Three  Cylinders. 


Long 

Cy 1 i nder 

Short 

Cylinder 

Cylinder  of 
Stephens  et  al . 

L 

2500 

1829 

2000 

R 

90 

764.5 

100 

t 

1  .  1 

5.13 

1 

L/R 

27.18 

2.392 

20 

t/R 

0.0122 

0.0067 

0.01 

max  5/5cr 

0.238 

0.001 

0.101 

As  shown  in  Table  5.6  the  axial  stress  5  is  significant  for 
large  (L/R)  and  (t/R),  that  is  for  long  thick  cylinders. 
Therefore,  for  these  problems  care  must  be  taken  in  dealing 
with  axial  boundary  conditions. 
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In  the  program  used  for  the  present  study,  the  axial 
force  arising  due  to  end  restraint  is  treated  similarly  to 
an  equilibrium  force  during  the  equilibrium  iteration. 

Since  the  di splacemen t s  at  the  cylinder  end  are  prescribed, 
the  application  of  nodal  forces  at  the  end  is  not  possible. 
Instead,  displacements  are  applied  to  the  cylinder  ends 
which  approximate  the  displacements  for  free  cylinder  ends. 

5. 5. 3. 2  Nonlinear  Boundary  Conditions  for  End  Rotation 

The  displacements  presc r ibed  at  the  cylinder  end 
consist  of  two  parts.  First,  the  cross-sect  ion  is  rotated 
around  the  longitudinal  axis  with  angle  /? ,  and  second, 
if  wanted,  the  circumferential  stretching  may  be  applied. 
The  displacements  and  rotations  at  the  cylinder  end  for  a 
rotation  about  a  horizontal  axis  while  maintaining  a  rigid 
cross-section  are  given  below. 


u  =  -  R  sin/3  cos0, 

(5.18a) 

V  =  R  (1-cos/?)  sin0  cos0, 

(5.18b) 

vj  =  -  R  (1-cos/?)  c OS  2 0  , 

(5.18c) 

/?x  =  sin/?  c o s 0  , 

(5.  1 8d ) 

>80  =  (1-cos/?)  sin0  cos0. 

(5.  1  8e ) 

The  angle  0  is  the  circumferential  coordinate  measured  from 
the  top  fibre  (Fig.  4.2)  and  /?  is  the  angular  rotation  of 
the  cross-section. 
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For  small  rotations  the  trigonometric  functions  in 
are  approximated  by  the  first  term  of  the  corresponding 
Taylor's  series.  This  results  in  the  following  linear 
expressions  which  were  used  for  the  linear  bending  problem. 


U  =  -  R  fi  COS0, 

(5.19a) 

v/  =  0 , 

(5.19b) 

o 

II 

(5.19c) 

/3x  =  /8  c  o  s 0  , 

(5.1 9d ) 

$0  =  0. 

(5. 19e) 

In  order  to  simulate  the  cylinder  by  Stephens  et  al .  3 8 
points  on  the  cylinder  ends  should  be  allowed  to  move  in  the 
circumferential  direction.  Otherwise  stresses  in  the  circum¬ 
ferential  direction  occur  at  the  cylinder  end,  and  an 
outward  buckle  similar  to  Fig.  4.5  would  occur.  In  the 
linear  analysis  this  effect  was  avoided  by  allowing  v  and  /30 
to  be  free. 

In  a  nonlinear  analysis,  however,  v  and  /?0  cannot  be 
let  free  since  these  degrees  of  freedom  are  needed  to 
prescribe  the  rotation  of  the  cylinder  end  (Eq.  5.18). 
Therefore  displacements  are  applied  which  approximate  a 
cylinder  end  with  no  circumferential  stresses.  The  Donnell 
equation  (Eq.  4.2)  for  zero  circumferential  stress  is 
derived  from  the  linear  bending  theory  of  cylinders.  It  is 
assumed  that  the  nonlinear  circumferential  stretching  is 
about  as  much  as  in  the  linear  range. 


' 
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In  section  4.2  it  is  shown  that  the  maximum  displace¬ 
ment  Av  for  5x  =  5cr  is  only  0.182  times  the  shell  thickness 
t.  For  the  derivation  of  the  displacements  it  is  therefore 
permissable,  that  sin(Av/R)  and  cos(av/R)  are  approximated 
by  av/R  and  1,  respectively,  for  large  R/t  ratios. 

The  displacements  due  to  this  prescribed  circumferen¬ 
tial  strain  are  as  follows: 


U  =  D  0 

sin0  sin20 , 

(5.20a) 

\/  =  D  $ 

s in0  , 

(5.20b) 

\ti  =  0 , 

(5.20c) 

£x  =  0, 

( 5 . 20d ) 

£0  =  -  D 

0  sin0/R, 

( 5 . 20e ) 

where  D  equals  to  2vR2/L. 
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5.5.4  Discussion  of  Test  Results 

The  cylinders  considered  are  the  long  cylinder  by 
Stephens  et  al .  3 8  and  the  short  cylinder  by  Stephens37, 
whose  data  are  given  in  Table  5.6.  As  in  the  preceding 
nonlinear  analysis  the  full  Newt on-Raphson-Method  is  used. 
The  step  size  of  the  rotation  of  the  cylinder  end  is  chosen 
as  10  %  of  fic r.  The  equilibrium  iterations  are  stopped  when 
the  norm  of  the  incremental  displacements  is  smaller  than 
10" 6  times  the  norm  of  the  first  displacements  of  the 
current  load  step.  The  CPU-time  required  for  each  load  step 
is  found  to  be  approximately  0.9  seconds  per  element. 

The  calculation  of  the  three  stiffness  matrices  takes  about 
48  seconds  for  one  element  type.  This  calculation  is  done 
only  once.  Due  to  these  high  computing  costs  only  a  limited 
number  of  runs  were  possible. 

5.5.4. 1  Rigid  and  Semi-Rigid  Cylinder  Ends 

In  order  to  study  the  effect  of  axial  fixed  ends  and 
prescribed  circumferential  strain,  three  tests  of  the  long 
cylinder  (L/R/t=2000/1 00/1 )  were  done  with  4x2  elements. 

The  results  are  given  in  Table  5.7  and  are  compared  with  the 
deflection  and  end  moment  of  the  linear  beam  theory. 


■ 
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Table  5.7:  Effects  of  Axially  Fixed  Ends  and  Prescribed 

Circumferential  Strain  on  the  Long  Cylinder  by 
Stephens  et  al .  3 8  with  4x2  Elements  and  =  ficr . 


axial 
f  ixed 

axial  free, 
no  Donnell 
strain 

axial  free, 
prescribed 
Donnell  strain 

iv  /  iv  beam  f 

1  .  028 

1  .050 

1  .034 

M  /  M  beam 

0.865 

0.827 

0.699 

Aw(mm)  $ 

7 . 27 

7.50 

7.35 

(axial  shortening 
or  axial  force)  / 
beam  theory 

1  .  67 

1.51 

1.013 

5x(top)/beam  theory 
cylinder  end 
cylinder  middle 

-1.28 

-1.26 

-1.50 

-1.47 

-1.35 

-1.57 

5x ( bottom) /beam  theory 
cylinder  end 
cylinder  middle 

1.71 

1  .38 

1  .  63 

1  .26 

1  .43 

1  .  27 

Comparing  the  two  columns  with  no  circumferential 
strain  at  the  end,  the  following  can  be  said:  The  axial 
force  due  to  fixed  ends  increases  the  longitudinal  strains 
in  the  cylinder  and  increases  the  end  moment  by  about  5  %. 
The  deflection  is  reduced  by  3  %  and  the  ovalization  by 
2.2  %.  In  prescribing  Donnell's  circumferential  strain  at 
the  ends  the  deflection  iv  and  the  ovalization  Aw  are 
slightly  reduced.  The  bending  moment  drops  by  16  %  when 
compared  to  the  cylinder  with  rigid  ends.  A  similar  effect 

f  The  deflection  iv  is  the  mean  of  top  and  bottom  deflection. 
$  The  ovalization  or  flattening  aw  is  measured  as  the 
difference  of  top  and  bottom  fibre  deflection. 


• 
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has  been  observed  already  in  section  4.2.3  where  deflections 
and  moments  of  a  long  cylinder  decreased  when  circumferen¬ 
tial  strains  were  allowed  to  develop. 

The  longitudinal  strains  vary  significantly.  For  the 
cylinder  with  Donnell's  strain  the  stresses  vary  less  than 
in  the  two  other  cases.  A  significant  improvement  is  the 
calculation  of  the  axial  shortening  which  shows  only  a  1.3  % 
difference  from  the  beam  solution.  Because  of  the  effect  of 
the  prescribed  Donnell  strain  on  the  computation  of  the 
axial  shortening  and  the  increased  bending  stiffness  for 
axial  fixed  ends  the  next  tests  are  done  with  axial  free 
ends  and  the  prescription  of  Donnell's  circumferential 
strain  at  the  cylinder  ends. 


91 


5. 5. 4. 2  The  Short  Cylinder 

The  finite  element  gridwork  chosen  for  the  cylinder  by 
Stephens37  is  NPxNX  =  3x8  elements.  It  was  chosen  to  have 
approximately  equilateral  elements.  The  cylinder  data  are 
given  in  Table  5.6.  For  the  first  load  step  (a/3  =  0.1  /3c r) 
four  equilibrium  iterations  were  needed  and  only  two 
iterations  were  neccessary  for  further  loadings.  This  fast 
convergence  is  possible  because  of  the  small  displacements 
of  the  cylinder.  The  calculation  could  not  however  be 
continued  beyond  the  first  iteration  of  the  fifth  load  step 
since  the  determinant  of  the  tangent  stiffness  matrix  was 
found  to  be  negative.  The  results  of  Stephens  et  al .  3 8 
indicate  that  the  buckling  moment  for  the  present  cylinder 
would  be  around  0.98  Me r.  The  results  of  the  present  study 
are  given  in  the  table  below. 


Table  5.8:  Nonlinear  Results  of  Short  Cylinder 
under  Bending. 


Load 

Step, 

ifi/ficr) 

1  kT;  | 

AW 

Mean 

Deflection 

(mm) 

Shortening 
of  Cylinder 
( mm ) 

o 

h 

( mm ) 

0.0 

1  .  0000 

0.0000 

0.0000 

0.000000 

0.  1 

0.8669 

0.0018 

0.2194 

0 . 000  145 

0.2 

0.6289 

0.0072 

0.4388 

0.000580 

0.3 

0.3041 

0.0164 

0.6583 

0.001305 

0.4 

0.0359 

0.0288 

0.8779 

0.002321 

0.5 

-0.1031 

— 

— 
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The  mean  value  of  the  top  and  bottom  deflection  is 
almost  proportional  to  the  end  rotation  $  and  is  1.2  %  less 
than  predicted  by  beam  theory  (iv=0 . 222  1  36  mm).  The  bending 
moments  found  are  almost  proportional  to  the  rotation  /?. 

The  increase  in  the  bending  moment  between  the  third  and 
fourth  load  step  is  only  0.005  %  smaller  than  the  value  of 
the  first  load  step.  The  insignificant  nonlinearities  for 
deflection  and  the  bending  moment  can  be  explained  by  the 
very  small  geometric  differences  between  the  loaded  and  the 
unloaded  cylinder.  The  ovalization,  for  example,  at 
ft  =  0.4  /3cr  is  only  3.3  %  of  the  deflections  or  0.56  %  of 
the  thickness  t.  The  flattening  Aw  increases  quadrat ically 
with  respect  to  the  end  rotation.  The  results  by  Stephens  et 
al .  3 8  show  the  same  trend;  the  ovalization  grows  approxi¬ 
mately  quadrat ical ly  to  the  bending  moment,  which  is, 
as  found  in  the  present  study,  almost  proportional  to  the 
end  rotation.  A  numerical  comparison  is  difficult,  since  the 
smallest  L/R  ratio  in  Ref.  38  is  3.4  (as  opposed  to  2.4  in 
the  present  study)  and  the  paramter  aw  is  hardly  visible  in 
the  graphical  representation  of  the  results.  Unfortunately 
Stephens  et  al .  did  not  give  the  end  rotation,  shortening, 
or  the  circumferential  stresses,  which  should  be  compared 
with  the  results  obtained  in  this  study. 

The  shortening  of  the  cylinder  is  about  double  as  much 
as  Eq.  5.17  predicts.  This  discrepancy  may  be  due  to  the 
small  number  of  elements  in  the  longitudinal  direction  and 
the  relative  low  L/R  ratio.  However,  a  satisfactory 
explanation  is  still  not  available. 
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The  stresses  of  the  mid-section  after  the 
step  are  shown  in  Fig.  5.6.  The  stresses  of  the 
are  omitted  since  the  differences  are  too  small 


fourth  load 
cylinder  end 
to  be  shown. 
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The  longitudinal  stresses  approximate  the  beam  solution 
quite  well,  since  the  deflections  are  very  close  to  the  beam 
theory . 

The  circumferential  stresses  approximate  Donnell's 
theory  that  5©  should  be  zero.  The  stress  5©  for  each 
element  (p=22.5°)  varies  almost  linearly,  which  is  an  effect 
of  the  lack  of  a  continuous  ©-term  in  the  strain  function 
for  6©. 

At  the  cylinder  middle  the  longitudinal  stress  of  the 
top  fibre  is  0.05  %  above  the  beam  stress  and  the  bottom 
stress  is  0.03  %  less  than  the  beam  theory.  At  the  top  fibre 
of  the  cylinder  end  5x  has  about  the  same  value  as  predicted 
by  the  beam  theory,  while  the  longitudinal  stress  at  the 
bottom  fibre  is  about  0.4  %  larger. 
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5. 5. 4. 3  The  Long  Cylinder 

The  data  for  this  cylinder  are: 

L  =  2000  mm, 

R  =  100  mm, 
t  =  1  mm , 

E  =  6895  MPa, 
v  =  0.3. 

Stephens  et  al .  found  the  buckling  moment  to  be  0.636  Mcr 
and  observed  a  maximum  ovalization  of  about  16  times  the 
cylinder  thickness.  As  in  the  preceding  problem  the  cylinder 
is  tested  with  prescribed  c i rcumf erent ial  strain  at  the  ends 
and  axial  free  ends.  The  finite  element  mesh  chosen  is 
NXxNP  =  13x4  elements,  which  gives  an  element  aspect  ratio 
of  0.98.  The  cylinder  is  tested  up  to  an  end  rotation  of 
/8  =  /Scr  with  a  load  step  size  of  ft  =  0.1  /8c r.  The  results 
are  given  in  Table  5.9  below. 
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Table  5.9:  Nonlinear  Results  of  Long  Cylinder 
under  Bending. 


Load 

Step 

I ncrease 
of  Moment 
( Nmm ) 

Increase  in 
Mean  Deflection 
(mm) 

I ncrease 
in  aw 
(mm) 

1 

123156 

3.0331 

0.33 

2 

122158 

3.0735 

0.92 

3 

120650 

3.1075 

1.17 

4 

1 19235 

3.1125 

1.16 

5 

1 17974 

3.1125 

1.08 

6 

116819 

3.1110 

0.98 

7 

1 15699 

3. 1090 

0.83 

8 

1 14659 

3 .  1082 

0.77 

9 

1 13743 

3.1100 

0.77 

10 

1  1  2739 

3.  1045 

0.73 

Despite  a  recalculation  of  the  tangent  stiffness  matrix, 
the  convergence  was  rather  slow.  Four  to  five  equilibrium 
iterations  were  necessary  for  each  load  step.  The  axial 
movement  of  the  cylinder  end  was  found  to  be  in  good 
agreement  with  the  prediction  by  Eq .  5.17.  The  difference 
lies  between  1.1  %  for  >S  =  0.1  /3cr  and  4.2  %  for  /3  = 

1.0  /3c r.  The  moment  for  the  first  load  step  is  93.9  %  of  the 
beam  theory  and  for  the  tenth  load  step  86.0  %.  The  decrease 
in  the  difference  between  the  moments  at  two  successive  load 
steps  has  an  average  of  0.8  %  and  is  largest  at  the  third 
load  step.  After  the  third  load  step  the  change  in  moment 
per  load  step  decreases  at  a  slower  rate.  It  is  interesting 
to  note  that  the  rate  of  increase  in  ovalization  decreases 
after  the  third  load  step  and  that  the  additional  mean 
deflections  have  their  maximum  at  the  fourth  load  step. 
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If  one  compares  the  end  rotation  with  the  ovalization 
and  the  deflection,  a  geometric  stiffening  of  the  cylinder 
after  =  0.3  ficr  is  observed.  An  explanation  for  this 
stiffening  is  that  the  induced  stresses  reduce  the  ovali¬ 
zation  and  thereby  limit  the  reduction  of  the  bending 
stiffness . 

The  relative  increase  of  the  bending  stiffness  is 
especially  seen  in  the  determinant  |  K  |  which  increases 
steadily  from  1.5x101002  at  =  0.1  ficr  to  1.2xl01023  after 
the  last  load  step. 

Table  5.10  shows  the  ovalizations  calculated  by 
Stephens  et  a/.  and  the  present  study. 


Table  5.10:  Ovalization  of  Long  Cylinder  under  Bending 


Moment  /  Me r 

Ovalization  Aw/t 
Stephens  et  al .  t 

Ovalization  Aw/t 
present  study 

0.  1 

0.3 

0.4 

0.2 

1.0 

1.4 

0.3 

2.3 

2.7 

0.4 

4.5 

4.0 

0.5 

8.7 

5.  1 

0.6 

13.5 

6.  1 

0.636 

16.0 

6.5 

Up  to  a  moment  of  0.3  Me r  the  present  study  gives  a 
larger  ovalization  than  Stephens  et  al . .  This  can  be  partly 
explained  by  the  calculation  of  the  bending  moment  which  for 
/5  =  0.1  /Scr  is  6  %  lower  than  predicted  by  beam  theory 

t  Approximate  values  obtained  from  graphical  results. 
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(131000  Nmm) .  The  present  results  compare  reasonably  well 
with  those  of  Stephens  up  to  0.3  Me r.  Beyond  that  moment, 
Stephens’  solution  predicts  a  much  larger  rate  of  increase 
in  aw  . 

To  illustrate  the  aevelooment  of  cross-section 

A. 

ovalization  the  incremental  deflections  for  the  first  three 
and  the  last  load  step  are  illustrated  in  Fig  5.7. 

The  curves  above  the  dashed  line  are  the  deflections  for  the 
bottom  fibre,  and  the  deflections  of  the  top  fibre  are  shown 
below  the  dashed  line.  The  fourth  increment,  which  is  almost 
identical  with  the  third  one  and  the  increments  of  step  5  to 
9  are  omitted  for  clarity  of  the  other  curves. 
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Fig.  5.7  :  Incremental  Deflections  of  Long  Cylinder  under 
Bending . 
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With  increasing  end  rotation  the  ovalization  is  reduced 
at  the  cylinder  middle  but  still  increases  near  the  cylinder 
end.  The  wave-like  differences  of  the  tenth  step  might  be 
interpreted  as  the  beginning  of  a  longitudinal  wrinkling. 

In  order  to  find  the  buckling  mode  occuring  an  element 
refinement  in  the  circumferential  direction  is  appropriate 
so  that  the  stresses  induced  by  rigid  body  motions  are  kept 
small.  Unfortunately  Stephens  et  al  .  did  not  present  the 
moment  end  rotation  and  moment-deflection  relationship  which 
should  be  compared  to  the  present  results. 

Lastly  the  longitudinal  and  circumferential  stresses 
for  ft  =  0.3  /Scr  are  presented  in  Fig.  5.8  and  compared  to 
the  beam  theory  and  the  results  of  Stephens  et  al . . 
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Fig.  5.8:  Stresses  of  Long  Cylinder  at  ft  =  0.3  /?cr. 


Despite  the  surprisingly  coarse  stress  distribution  an 
effect  is  observed  which  Stephens  et  al  .  found  also.  In  the 
middle  of  the  bent  cylinder  the  stresses  at  the  top  and  the 
bottom  fibre  decreases.  In  order  to  maintain  equilibrium  of 
horizontal  forces  the  neutral  axis  shifts  by  about  5° 
towards  the  top  fibre. 
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The  stresses  at  the  cylinder  end  are  shifted  in  the 
reverse  sense.  The  neutral  axis  is  about  7.5°  lower  than  the 
middle  fibre  of  the  beam.  The  circumferential  stresses  at 
the  cylinder  end  are  in  the  average  about  zero.  The  more 
positive  50  from  the  top  fibre  to  45°  is  in  accordance  with 
the  quite  low  5x :  The  circumferential  strains  prescribed  are 
based  on  the  longitudinal  stresses  of  the  beam  theory. 

A  positive  increase  in  5x  without  changing  the  circumferen¬ 
tial  strain  results  in  an  increase  in  50.  Near  the  bottom 
fibre  the  longitudinal  stresses  approximate  the  beam  theory 
quite  well;  correspondingly  the  circumferential  stress  tends 
towards  zero  as  expected. 


6.  Summary  and  Conclusions 

In  the  foregoing  a  modified  finite  element  is  developed 
for  geometric  nonlinear  behaviour  of  thin  cylindrical 
shells.  The  element  is  proven  to  be  at  least  equal  in 
performance  when  compared  to  other  elements  for  the  linear 
pinched  cylinder  problem.  The  bending  of  a  cylinder  under 
end  moments  shows  that  the  element  gives  the  exact  beam 
deflection  if  points  at  the  cylinder  ends  are  allowed  to 
move  in  the  circumferential  direction.  Otherwise  an  upward 
lifting  is  observed.  Despite  the  good  results  for 
deflections  the  cylinder  moment  and  the  circumferential 
strain  predicted  are  very  poor  unless  approximately  equila¬ 
teral  elements  are  used. 

In  the  nonlinear  range  the  element  is  successfully 
applied  to  the  barrel  vault  problem  with  concentrated  loads 
and  successfully  follows  the  nonlinear  load-deflection  path 
with  horizontal  tangents.  In  another  test  problem,  the 
pinched  circular  arch,  the  element  gives  loads  slightly 
higher  than  the  results  by  Sabir  and  Lock.  One  reason  for 
the  different  performance  is  the  difference  in  the  magnitude 
of  the  deflections  in  the  two  problems.  The  barrel  vault  was 
tested  up  to  n/=0.011  R  while  the  circular  arch  had  a 
deflection  of  0.137  R. 

In  the  context  of  nonlinear  problems,  the  element  is 
tested  for  spurious  strains  arising  from  rigid  body  motions. 
It  is  shown  that  the  element  remains  strain-free  for 
translations  in  all  directions  as  well  as  for  a  rotation 
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around  the  longitudinal  axis.  However,  rotations  around 
the  two  other  axes  induce  strains  in  the  element.  In  the 
nonlinear  bending  problem,  cylinders  with  a  high  ratio 
tL2/R3  are  apt  to  develop  compressive  circumferential 
stresses  as  a  result.  These  stresses  enlarge  the  diameter 
of  the  cylinder  and  reduce  the  flattening  or  ovalization  of 
the  cross-section. 

Due  to  high  computing  costs  only  a  limited  number  of 
runs  were  done  for  the  nonlinear  bending  problem.  It  was 
shown  that  the  ends  of  the  cylinder  move  axially  due  to 
second  order  effects  and  that  a  rigid  cross-section  at  the 
cylinder  end  causes  circumferential  stresses  which  in  turn 
influence  the  middle  of  the  cylinder.  In  order  to  assess  the 
influence  of  various  boundary  conditions  it  seems  necessary 
that  the  element  be  refined  near  the  cylinder  end  and  that 
there  be  enough  elements  in  the  circumferential  direction 
to  obtain  a  uniform  stress  distribution  for  5x . 

Two  cylinders  with  quite  different  values  of  tL2/R3 
were  tested.  The  short  cylinder  showed  good  results  except 
that  the  determinant  of  the  tangent  stiffness  matrix  became 
negative  at  the  fifth  load  step.  The  reason  for  this 
behaviour  is  not  clear.  With  an  element  gridwork  of  3x8 
elements  the  representation  of  the  bent  cylinder  might  be 
too  coarse  and  might  cause  numerical  problems  during  the 
tr iangular izat ion  of  the  stiffness  matrix. 

A  very  long  cylinder  showed  the  problem  with  induced 
strains.  After  a  rotation  of  =  0.3  ftcr  the  ovalization  and 
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The  success  of  the  element  for  nonlinear  problems  with 
small  deflections  suggests  that  the  element  works  best  when 
strains  arising  from  rigid  body  motions  are  kept  small 
compared  the  to  the  strains  due  to  the  structural  loading. 
The  rigid  body  motions  which  rotate  perpendicular  to  the 
longitudinal  axis  are  responsible  for  these  strains. 

In  order  to  avoid  these  induced  stresses  one  should 
either  change  the  tangent  stiffness  matrix  of  an  element  by 
a  subtraction  of  rigid  body  motions  or  change  the  displace¬ 
ment  functions  to  include  the  rigid  element  displacements. 

As  shown,  the  element  works  well  for  most  linear  and 
nonlinear  problems.  However,  the  bending  of  cylinders 
appears  to  be  particularly  difficult.  Besides  the  problems 
of  representing  the  boundary  conditions  at  the  cylinder  end, 
the  element  itself  can  only  approximate  the  displacements  of 
a  cylinder  under  bending.  With  restrictions  due  to  the  high 
computing  time  involved,  a  detailed  study  of  the  various 
problems  with  the  cylinder  under  bending  has  been  only 
started  and  further  research  is  necessary  to  solve  the 
problem  adequately. 
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sin (p) 
cos ( p) 
cp-s 


=  0.25  A2 
=  1/4s  A5 
=  1 / 4Rp  A8 
=  1 /8R 2  p  B2 
=  -1/8R  B5 
=  -3/41 2  B8 
=  c/4Rs  C2 
=  s/4R 2  a  C5 
=  s/4Rla  C8 
=  -p2s/121a  D2 
=  -1/8RS  D5 
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=  ( s-3cp)/81R2pa  F6  =  [ 5p2 ( 3cp-s ) -  1 8a ]/96lRpa 

=  ( 12-5p2 )/96pR  F8  =  ( -5p2 s~9a ) /481a 


Linear  Strain  Fields  in  Terms  of  Nodal  Displacements 
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s  =  sin ( p) 
c  =  cos(p) 
s  =  sin ( 0  ) 
a  =  cp-s 


K 1  =  1/41s  K2 
K3  =  c/4 lRs  K4 
K5  =  x  3 /8Rpl 3  K6 
K7  =  a/4 1 sp  K8 
K9  =  sp2/ 1 21a 

LI  =  1/4pl+p( 3cp~s )/241a  L2 
L3  =  R(sp2+3a)/121a  L4 
L5  =  1 / 4pl 3  L6 
L7  =  X0/8R 3  0  L8 
L9  =  c  0/4R 2  a 

N1  =  x0 ( 3cp~s )/8R2pla  N2 
N3  =  I0/8R 3  p  N4 
N5  =  s ( 60  2  ~5p2 )/48Rla  N6 
N7  =  x/8Rpl 2  N8 
N9  =  0/41p  Ml 


x  2  0/81pR2 
1/8R1 

( x  2  —  1 2 )/8Rl 2+0x2/8Rpl2 
1  /  4Rp 

p/24 
1/4Rlps 
1 / 4pl 2 
S0/ 4R 2  la 

0/8R 2  p 
1 /4R 2  pi 

(3cp-s) (5p2-602 )+18(2x2-l2 ) 
(60+12-5p2 )/96Rp 
(6s02-9a-5p2s)/481a 
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Listing  of  the  Finite  Element  Program 

The  finite  element  program  used  is  given  with  subroutines 
ordered  alphabetically.  All  computations  were  done  at  the 
Computing  Centre  of  the  University  of  Alberta  on  an  Amdahl 
470/V7  and  later  on  Amdahl  470/V8.  The  equation  solver 
VBSOLV  is  not  given  as  it  was  not  developed  during  this 
study.  The  functions  COST  and  GUINFO  are  utility  functions 
of  the  Department  of  Computing  Services. 
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10 
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18 
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21 

22 

23 

24 
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26 

27 

28 

29 

30 

3  1 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4  1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


o  o  o  o  o  o  o 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


************************************************************** 


*  FINITE  ELEMENT  PROGRAM  FOR  GEOMETRIC  NONLINEAR  * 

*  ANALYSIS  OF  THIN-WALLED  CIRCULAR  STRUCTURES  * 

*  * 

************************************************************** 
(  THIS  PROGRAM  CALLS  THE  PROGRAMS  MA INI  OR  MAIN4  ) 


IMPLICIT  R 
RE AD ( 5 , 10) 
10  FORMAT ( G5 ) 
IF  (M.EQ. 1 
IF  (M.E0.2 
IF  (M.EQ. 4 
STOP 
END 

SUBROUTINE 


AL  *8  ( 
M 

A-H.O-Z) 

CALL 

MAIN1 

CALL 

ASTART 

CALL 

MAIN4 

ASOKT ( NOEL , OD 


OKT, IX) 


ASSEMBLAGE  OF  THE  (TANGENT) 


STIFFNESS  MATRIX 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  EIK  /E2K(20, 20) , E3K( 1540) . E4K(8855) 

COMMON  /  WHOLE  / I BC ( 2 )  , I  NR , I N( 50 ) . I S . I T , I XCH , LCH . NB AND , NEC , 

1  NEL , NINTP , NI NT  S , NI NTX , NL , NMAX , NN , NNC , NN5 . NPD . NX , NX  1  . NP , NP 1  , 

2  N2P , N2X , NX2 

COMMON  /  ETANK  /ETK ( 20 , 20 ) , V ( 20 ) 

DIMENSION  NOEL (4. NEL) ,0D(NN5) , OKT ( NB AND . NN5 ) , IX(NN5) , INS(  121  ) 


DO  10  J=1 , NN5 
DO  10  1=1 , NB AND 
10  OKT ( I , J)=O.DO 
DO  40  1=1 , NEL 
IF  ( IN( 12) . EQ.O)  GOTO  30 
DO  20  J= 1 ,4 
U5= ( NOEL ( U ,  I  )  -  1  )  * 5 
L=(J-1 )  *5 
DO  20  K=1 ,5 
20  V(L+K)=OD( J5+K) 

30  CALL  KT 

40  CALL  STUFF(OKT ,NBAND , NN5 , INS . ETK , NOEL ,NEL , NN , I , IX) 

IF  ( I N ( 7 ) .EQ. 1)  CALL  PRTMAT(OKT, NBAND ,1.1, NBAND , NN5 , 'OKT, FREE') 

RETURN 

END 

SUBROUTINE  ASSEM ( NOEL . OKT . I  X , OD ) 


STIFFNESS  MATRICES 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  EIK  /E2K(20, 20) , E3K( 1540) , E4K( 8855) 

COMMON  /  WHOLE  / 1 BC ( 2 ) . I  NR , I N ( 50 ) , I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL, NI NT P.NI NTS, NINTX.NL, NMAX , NN , NNC , NN5 . NPD , NX , NX  1 , NP , NP 1 , 

2  ISTART.IHALF.I DUMMY ( 7 ) , NCONV 

COMMON  /  PART  /BETA . BETA2 , CBETA . CED . DB , DEG , DELTA . DELTAT , E , ED , 

1  EN,E2,FLEX.PEL.PEL2,PI.R, RL , RM , RN , RNU , DNORM , PR EC , TH , XEL , TIME , 

2  XD , REDUCE , FLOAD , FSTEP 

DIMENSION  OKT ( NBAND , NN5 ) ,0D(NN5) , NOEL ( 4 , NEL ) , IX(NN5) 

DAS=C0ST(0) 

WR I T  E ( 7 ,  10)  DAS 

10  F ORMAT ( / '  BEFORE  ASSEM :  '  , F 10 . 2 ) 

IS=IS+1 

FLOAD=FLOAD+FSTEP 
I T  =  -  1 

IF  ( ( IS+IHALF ) ,GT . 1 )  GOTO  40 
CALL  GT CPL (TIME) 

IF  ( IN( 12) . EQ.O)  I S  =  -  1 
CALL  TMAT 
DO  20  1=1, NN5 
20  OD ( I ) =0 . DO 
WRITE ( 12)  OD 

IF  (  I  N(  1 1 )  . NE .  1 )  GOTO  30 
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1  10 

1  1 1 

1  12 

1  13 

1  14 

1  15 

1  16 

1  17 

1  18 

1  19 

120 

121 
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123 

124 

125 

126 

127 

128 
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130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 


o  o  o 


119 


RE AD (  1  1  )  E2K 

IF  ( I N ( 12) . EO.O)  GOTO  40 
RE AD ( 1 1 )  E3K.E4K 
GOTO  40 
30  CALL  CYLSTF 
IN( 1 1 )  =  1 

40  CALL  ASOKT ( NOEL , OD , OKT , IX) 

RETURN 
END 

SUBROUTINE  ASTART 

ARRANGING  ARRAYS  FOR  SUBROUTINE  RSTART 
IMPLICIT  REAL*8( A-H, 0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 )  , I S , I T , I XCH . LCH , NB AND . NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX . NN , NNC , NN5 . NPD , NX , NX  1 , NP , NP 1 , 

2  I  START , I  HALF , NEXT IT , LCAUSE . NEXT  IS , NEXTOV , ITOVAL , ITOVIT , NOVA 
DIMENSION  OKT  (65, 605)  ,N0EL(4,  100)  ,P(605)  ,  IV(605)  ,  IHI.605)  , 

1  IX (605) , OD ( 605 ) ,DV(53) , ID (605) , OF (605) , VL(605) ,NPL(605) , 

2  I XNEW ( 605 ) 

RE AD (10)  I BC , INR , I N , I S , I T , I XCH , L CH , NB AND , NEC , NEL , NEXT  IT, 

1  LCAUSE , NINTP , NINTS , NINTX , NL . NMAX , NN , NNC , NN5 . NPD , NX . NX  1 . NP . 

2  NP 1 , I HALF .NEXT  IS, NEXTOV, ITOVAL , ITOVIT. NOVA 
I  ST  ART= 1 

CALL  RSTART (OKT , P , OD , NOEL , OF , I  X , DV , I  V , IH. VL ,NPL , I XNEW) 

STOP 
END 

SUBROUTINE  BCI(IX) 

C 

C  GENERATION  OF  BOUNDARY  CONDITIONS  FOR  ( A- ) SYMMETRY  OF  THE 

C  TOP  AND  BOTTOM  EDGE  AND  THE  MID-SECTION  OF  THE  CYLINDER 

C 

IMPLICIT  REAL*8( A-H, 0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR . I N( 50 ) , I S , I T , I XCH . LCH , NB AND , NEC . 

1  NEL , NINTP , NINTS .NINTX , NL , NMAX , NN , NNC . NN5 , NPD , NX . NX  1 , NP , NP 1 , 

2  N2P , N2X , NX2 

DIMENSION  1X5(5, 121), N(5). IX(NN5) 

C 

DO  10  J= 1 , NN 
DO  10  1=1,5 
10  I X5 ( I , J)=1 

IF  ( I BC (  1  )-  1  )  30,30,20 
20  N ( 1 ) =  2 
N( 2  )  =5 
GOTO  40 
30  N ( 1 ) =  3 
N ( 2 ) =4 

40  IF  ( I BC ( 2 ) -  1 )  60,60,50 
50  K  =  4 
N( 3 )  =  1 
N ( 4 ) =4 
GOTO  70 
60  K  =  5 
N( 3 ) =2 
N( 4  )  =3 
N( 5 ) =5 
70  CONTINUE 
DO  80  1=1,2 
DO  80  J=1 ,NX1 
IX5(N( I ) , U*NP 1 ) =0 
80  IX5(N( I ) , U*NP 1 -NP) =0 
J 1 =NX*NP 1+ 1 
J2= J 1 +NP 
DO  90  1=3, K 
DO  90  J=U1 , J2 
90  I X5 ( N ( I ) , J)=0 
DO  100  I = 1 , NN 
K  =  5*( I-  1  ) 

DO  100  U= 1 , 5 
100  IX(K+J)=IX5( J, I ) 

RETURN 
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END 

SUBROUTINE  BXP(X.P) 

COEFFICIENTS  OF  'B,X',  'B.PHI',  'B3',  AND  'B4'. 
(BX3,BP3,BX2,BP1 ) 

IMPLICIT  REAL*8f A-H, 0-Z) 

COMMON  /  WHOLE  / 1 BC ( 2 ) , I  NR , IN ( 50 ) 

COMMON  /  PART  /BETA . BETA2 , CBET A , CED , DB , DEG , DELTA . DELT AT , E , ED , 
1  EN,E2,FLEX,PEL,PEL2,PI,R,RL, RM , RN , RNU , RNU 1 .SIGMA , TH, XEL 
COMMON  /  TMINUS/T ( 20 ,20) 

COMMON  /  BF  /BPF(20) ,BXF(20) ,B3F(20) ,B4F(20) 

DS=DSIN( P ) 

DC=DCOS ( P ) 

R2=R*R 
X2=X*X/2 . DO 
XDR=X/R 
P2=P*P/2 . DO 
XP=X*P 

XDR4  =  XDR/ 4 .DO 
XDRS=XDR*DS 
RP=R*P 
X2DR=X2/R 
X3DR=X2*XDR/3.D0 
RXP  =  RP  *X 
R 1 =  R  * ( 1 . D0+P2 ) 

RXP2=R*X*P2 
PX2=P*X2 
PR2=P*R2 
DO  10  1=1,20 

BXF(I)  =  -T(2, I)*DC-T(4, I ) *DS-T ( 8 , I )  *XDRS  +  T (  10, I ) *  R -T (  12, I  )  *X- 
1  T ( 13, I)*X2-T( 14, I  )  *  X  P  -  T  (  15,I)*PX2-T(  17,1  )  *  R  2  - T (  19,1 )*PR2 
10  BPF(I)=-T(6,I)/R-T(  11,1) *XDR4-T (  14,1) +X2DR-T(  15, I )  * X3DR - 
1  T (  16, I  )  *  RP -T (  17.1) *RXP-T (  18, I )*R1-T(  19,I)+RXP2-T(20.I)*X 
IF  ( IN( 3 1 ) ,LT. 1 )  RETURN 
C 

DO  20  1=1,20 

B3F(I)=T(2,I)*DS-T(4,I)+DC-T(8,I) *XDR*DC+T(  1 1 , I )/4 . D0+ 

1  T (  17,1) *PR2  +  T (  1 9 , I ) *R2  * ( P2 -  1  . DO) +T ( 20 , I ) * R 
20  B4F ( I ) =-T ( 2 , I ) *DS  +  T(4 . I )*DC+T(8 , I ) * XDR tDC  +  T ( 1 1 , I ) *0 . 75D0- 
1  T(  17  ,  I )*PR2-T( 19, I )*R2*(P2-1  . DO) -T( 20, I )*R 
RETURN 
END 

SUBROUTINE  CHANGE ( I XNEW , IX.NPL.VL) 

C 

C  INPUT  OF  LOAD,  DISPLACEMENTS  AND  CORESPONDING  FLAGS, 

C  SHOWING  IF  A  LOAD  (DISPLACEMENT)  IS  TO  BE  HELD  CONSTANT, 

C  OR  TO  BE  INCREASED  AFTER  EACH  LOAD  STEP 

C 

C  INPUT 

C  K:  DEGREE  OF  FREEDOM  TO  BE  CHANGED 

C  L:  NEW  BOUNDARY  CONDITION  (1  TO  6) 

C  F:  APPLYING  FORCE  OR  DISPLACEMENT 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50)  , I S , I T . I XCH , LCH . NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX , NX  1 . NP , NP 1 , 

2  N2P.N2X.NX2 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB , DEG , DELTA , DELTAT , E . ED , 
1  EN,E2,FLEX,PEL,PEL2,PI ,R,RL,RM, RN, RNU , RNU 1 .SIGMA , TH , XEL. TIME 
DIMENSION  I  X ( NN5 ) ,VL(NN5)  ,NPL(NN5) , I XNEW (605) 

C 

NPD=2*NNC 

IF  (IXCH.EO.O)  GOTO  30 
DO  20  1  =  1  ,  I XCH 
RE AD ( 5 , 10)  K , L 
10  FORMAT ( 3G20 . 10) 

IF  ( I  X ( K )  .EQ.2)  NPD  =  NPD- 1 
IF  (L.EQ.2)  NPD=NPD+ 1 
20  I  X ( K ) =L 
30  NL  =6 
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IF  (LCH.EQ.O)  GOTO  60 
DO  40  1=1,6 
NPL (  I ) =0 
40  I XNEW ( I ) =0 
DO  50  1=1, LCH 
RE AD ( 5 , 10)  K.L.F 

IF  (IX(K).EQ.O)  CALL  ERROR ( 7 , K , K ) 
NL=NL+ 1 

NPL (L)=NPL(L)+1 
I XNE W ( NL ) =L 
NPL ( NL ) =K 
50  VL ( NL ) =F 

NPL ( 1)=NPL(3)+NPL(4) 

NPL (2)=NPL(5 ) +NPL ( 6 ) 

60  READ  (5, 1 0 , END=70 ) L 
CALL  ERROR) 4 , L , L ) 

70  RETURN 
END 

SUBROUTINE  CYLSTF 


CALCULATION  OF  THE  THREE  STIFFNESS  MATRICES 


IMPLICIT  REAL*8( A-H.O-Z 
COMMON  /  WHOLE  /IBC(2), 

1  NEL.NINTP, NINTS , NINTX 

2  N2P , N2X , NX2 


) 

I  NR , IN( 50)  , I S , IT , I XCH , LCH , NBAND , NEC 
NL . NMAX , NN , NNC . NN5 , NPD , NX , NX  1  , NP , NP 


COMMON  /  PART  /BETA, BE 
1  EN, E2 , FLEX , PEL , PEL2 . PI 
COMMON  /  E IK  /E 2K ( 20 , 

COMMON  /  AF  / AXF ( 20) 

COMMON  /  TF  /TXF ( 20) 

COMMON  /  BF  /BPF ( 20) 

DIMENSION  X ( 24 ) , WX ( 24 ) , 

1  BX2(20, 20) ,BP2(20, 20) . 

2  6X32(20,20) ,BP42(20, 20 

3  BX3 1 (20, 20) , BP4 1 ( 20, 20 


TA2.  CB ETA, CED.DB, DEG, DELTA, DELT AT, E 
, R , RL , RM, RN , RNU , DNORM , SIGMA , TH, XEL , 
20) ,E3K( 1540) ,E4K(8855) 

, APF ( 20) , APXF(20) 

.  TPF ( 20) , TPXF ( 20) 

,BXF( 20) ,B3F(20) ,B4F(20) 

P( 24 ) , WP( 24) , T 1 ( 20) , T2( 20) , 

BXBP( 20. 20) , B32( 20, 20) ,B42( 20. 20) , 

) ,B342( 20,20 ) ,B4 32 (20,20 ) , 

) 


IF  ( I N ( 3 1 ) .NE .2)  GOTO  10 
CALL  NEWCYL 
RETURN 
10  CONTINUE 

CALL  GAUSS(X, WX , 24 , XEL, NINTX) 
CALL  GAUSS(P,WP,24.PEL.NINTP) 
IF  ( IN(25) . EO. 1 )  CALL  TMAT 
DO  20  1=1,20 
DO  20  J= 1 , 20 
20  E2K( J. I ) =0 . DO 
DO  30  1=1 , 1540 
30  E3K( I ) =0 . DO 
DO  40  1  =  1 ,8855 
40  E4K( I ) =0 . DO 

C=E*TH/( 1 ,DO-RNU*RNU) 
D=C*TH*TH/ 1 2 . DO 
RNU 1 = ( 1 . DO-RNU ) / 2 .DO 
RNU 2  =  RNU 1 +RNU 1 
RNU4=RNU2+RNU2 

DO  150  I NX  = 1 .NINTX 
DO  150  I NP  = 1 , NINTP 
CALL  SALF(X( INX) ,P( INP) ) 

CALL  STH(X( INX) ,P( INP) ) 

DO  50  1=1,20 
T 1 ( I ) =TXF ( I ) +RNU*TPF ( I ) 

50  T2( I )=TPF( I )+RNU*TXF( I ) 


STIFFNESS  MATRIX  OF  SECOND  ORDER 

WXWPR=WX( INX)*WP( INP)*R 
W2C=WXWPR*C 
W2D=WXWPR*D 
DO  60  1=1,20 


1  , 
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TIME 
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DO  60  J=I , 20 
60  E2K( I , d) =E2K( I , d)  + 

1  W2C*  (TXF  (I)*T1(d)  +TPF  (  I  )  *T2(  d)+RNU  1*TPXF(I)*TPXF(d))+ 

2  W2D* ( AXF ( I ) * ( AXF(d)+RNU*APF (d))+APF(I)*( AP F ( J ) +RNU * AXF ( J ) )+ 

3  RNU4*APXF ( I )*APXF(d) ) 

IF  ( IN( 12) . EQ.O)  GOTO  150 
C 

C  PRECALCULATIONS  FOR  NONLINEAR  TERMS 

C 

CALL  BXP ( X ( I NX ) ,P( INP) ) 

DO  80  1=1,20 
DO  70  J= 1 , 20 
BX2(U, I )=BXF( I )*BXF(J) 

70  BP2 ( U , I )=BPF( I )*BPF( J) 

DO  80  J= 1 , 20 

80  BXBP( J , I ) =BXF ( J) *BPF( I ) 

DO  90  d= 1 , 20 
DO  90  1=1,20 
BX31 ( I , J)=BX2( I , J)  • 

90  BP4  1  ( I , J)=BP2( I , J) 

IF  ( IN( 3 1 ) . NE . 1 )  GOTO  1 10 
C 

C  PRECALCULATIONS  FOR  EXTENDED  STRAIN  EXPRESSIONS 

C 

DO  100  J= 1 , 20 
DO  100  1=1,20 
B32 ( I , J ) =B3F ( I ) *B3F ( J ) 

B42 ( I , J)=B4F(I)*B4F(J) 

BX31 ( I , J)=BX31 (I , J)+B32(I , U) 

BP4 1 ( I , d ) =BP4  1  ( I , J)+B42( I , J) 

B342  ( I . J ) =B32 ( I , J ) +  RNU* B42 ( I . J) 

B432 ( I , U ) =B42 ( I , d)+RNU*B32( I , J) 

BX32 ( I , J ) =2 . D0*BX2 ( I , J ) +B32 ( I , J ) 

100  BP42(I,J)=2. DO* BP 2 ( I , J ) +B4 2 ( I , U) 

C 

C  STIFFNESS  MATRIX  OF  THIRD  ORDER 

C 

1 10  CONTINUE 
W  3  =  W  2  C 

W4  =W2C  *  1  . 5D0 
N  =  0 

DO  120  1=1,20 
N  =  N+  1 

E3K(N)=E3K(N)+W3*3 . DO* ( T 1(1) *BX3 1  ( I  .  I ) +T2 ( I ) *BP4 1 ( I , I )  + 

1  RNU2* (TPXF ( I ) *BXBP( I , I ) ) ) 

IF  (I.EQ.20)  GOTO  120 
I  1  =  1+1 

DO  120  J=I 1 , 20 
N  =  N+  1 

E3K( N) =E3K(N)+W3* (2 . DO*T 1(I)*BX31(I,d>+T1(d)*BX3l(I,I)+ 

1  2 . DO*T  2 ( I)*BP41(I,d)+T2(d)*BP41(I,I)+ 

2  RNU2  * ( TPX  F ( I )*(BXBP( I , U ) +BXBP ( J , I ) ) +TPXF ( J ) *BXBP ( 1,1))) 

N  =  N+  1 

E3K(N)=E3K(N)+W3*(2 ,DO*T 1(d)*BX31(I,d)+T1(I)*BX31(d,d)+ 

1  2 ,D0*T2( J) *BP4 1(I,J)+T2(I)*BP41(J,J)+ 

2  RNU2  *  (TPXF(J)*(BXBP(  I  ,  J  )  +BXBP  (  J  ,  I  )  )  +TPXF  (  I  )  *BXBP  ( «J  ,  J  )  )  ) 

IF  (J.E0.20)  GOTO  120 

U1=J+1 

DO  120  K=d 1 ,20 
N  =  N+  1 

E3K(N)=E3K(N)+W3*(T 1(I)*BX31(d,K)+T 1(d)*BX31(I , K ) +T 1 ( K ) *BX3 1 ( I , d ) 

1  +T2 ( I ) *BP4 1 (d,K)+T2(d) *BP4 1 ( I , K ) +T2 ( K ) *BP4 1 ( I , d)+ 

2  RNU 1  * ( TPXF ( I )*(BXBP(d,K)+BXBP(K,d) )+TPXF(d)*(BXBP( I , K )  + 

3  BXBP ( K , I ) )+TPXF(K)* (BXBP( I , d)+BXBP( d, I ) ) ) ) 

120  CONTINUE 

C 

C  STIFFNESS  MATRIX  OF  FOURTH  ORDER 

C 

N=0 

DO  130  1=1,20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(BX2(I , I ) +BP2 ( I , I ) ) * ( BX2 ( I , I )+BP2( 1,1)) 
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IF  ( I . E0.20)  GOTO  130 
I  1  =  1+1 

DO  130  d=I 1 , 20 
N  =  N+  1 

E4K(N) =E4K(N)+W4* (BX2( I , I ) +BP2 ( I , I ) ) *(BX2( I , d)+BP2( I , J)  ) 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(BX2( I,I)*BX2(d,d)+BP2(I,I)*BP2(d,d)+ 

1  (BX2(I,I)*BP2(d,d)+BX2(d,d)*BP2(I,I)+4.DO*BX2(I.d)* 

2  BP2 ( I ,d))/3. DO) 

N=N+  1 

E4K(N)=E4K(N)+W4*(BX2( I , d ) +BP2 ( I , J ) ) * ( BX2 ( J , J ) +BP2 ( J , J ) ) 

IF  (J.E0.20)  GOTO  130 

d1=d+1 

DO  130  K  =  d  1 ,20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(BX2(I , I ) *BX2 ( J , K ) +BP2 ( 1,1) *BP2( d.K  )  + 

1  (BX2( I , I )*BP2(d,K)+2 . D0*BX2 ( I,d)*BP2(I,K)+ 

2  2 . D0*BX2 ( I , K ) *BP2 ( I , J ) +BX2 ( J , K ) * BP2 ( I , I ) )/3 .DO) 

N  =  N+  1 

E4K(N)=E4K(N)+W4*(BX2( I , J ) *BX2 ( d , K )  +  BP2  (  I , d ) *BP2  (  d  .  K )  + 

1  (2 . D0*BX2 ( I ,d)*BP2(d,K)+BX2(d,d)*BP2( I , K ) + 

2  2.D0*BX2(d,K)*BP2( I.d)+BX2(I,K)*BP2(d,d))/3.DO) 

N  =  N+  1 

E4K(N)=E4K(N)+W4*(BX2(I,d)*BX2(K , K ) +BP2 ( I,d)*BP2(K,K)+ 

1  (BX2( I ,d)*BP2(K,K)+2 . D0*BX2( I,K)*BP2(d,K)+ 

2  2 . D0*BX2 (d,K)*BP2( I,K)+BX2(K,K)*BP2(I,d))/3.DO) 

IF  (K.E0.20)  GOTO  130 

K 1 =K+ 1 


DO  130  L=K1 , 20 
N  =  N+  1 


E4K(N)=E4K(N)+W4*(BX2( I,d)*BX2(K,L)+BP2(I.d)*BP2(K,L)+ 

1  (BX2(I,d)*BP2(K,L)+BX2(I.K)*BP2(d,L)+BX2(I,L)*BP2(d.K)+ 

2  BX2(d,K)*BP2( I ,L)+BX2(d,L  )*BP2( I  , K ) +BX2 ( K . L ) *  B  P  2 ( I ,d) )/3.D0) 
130  CONTINUE 

IF  ( IN( 31 ) . NE . 1 )  GOTO  150 


CONTRIBUTIONS  OF  EXTENDED  STRAIN  EXPRESSION  FOR  EK4(I,d,K,L) 


N=0 

DO  140  1=1.20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(B342( I . I ) *BX32( I , I )+B432( I . I ) *BP4  2( I , I  )  ) 

IF  (I . EO . 20 )  GOTO  140 
11=1+1 

DO  140  d=I 1 ,20 
N  =  N+  1 

E4K(N) =E4K( N ) +W4  * ( (B342(I,I)*BX32(I,d)+B432(I,I)*BP42(I,d))+ 

1  B342 ( I , d) *BX32( I . I )+B432( I , d ) *  BP4  2 ( I , I ) )/2 .DO 
N  =  N+  1 

E4K( N) =E4K(N)+W4* (B342( I , I ) * BX 32 ( d , d ) +B4 32 ( I , I ) *BP42 ( d , d ) + 

1  B342 ( d , d ) *BX32 ( I , I ) +B4  32 ( d . d ) *BP4  2 ( I  ,  I  )  + 

2  ( B342 ( I , d ) *BX32 ( I , d)+B432( I , d)*BP42( I , d ) ) *4 . DO) /6 . DO 
N  =  N+  1 

E4K(N) =E4K(N)  +  W4* (B342( I , d)*BX32( d , d)+B4  32( I , d ) +EP4  2  (  d  ,  d )  + 

1  B342(d,d)*BX32( I , d ) +B4 32 ( d , d ) *BP42 ( I , d) )/2 .DO 
IF  ( d . EO ■ 20)  GOTO  140 
d1=d+1 

DO  140  K=d 1 , 20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(B342( I,I)*BX32(d,K)+B432(I,I)*BP42(d.K(+ 

1  B342(d,K)*BX32( I , I ) +B4 32 ( d . K ) *BP4 2 ( I , I ) + 

2  (B342( I ,d)*BX32( I ,K)+B432( I,d)*BP42(I.K)+ 

3  B342 ( I , K ) *BX32 ( I , d ) +B432 ( I , K) *BP42( I , d ) ) *2 . D0)/6 . DO 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(  (B34  2(I.d)*BX32(d,K)+B432(I,d)’,'BP42(d,K))*2.  D0+ 

1  B342 ( I ,K)*BX32(d,d)+B432(I , K ) *BP42 ( d , d ) + 

2  (B342(d.K)*BX32( I , d ) +B432 ( d , K ) *BP42 ( I ,d) )*2 . D0+ 

3  B342 ( d , d ) *BX32( I , K ) +B432 ( d , d ) *BP42 ( I ,K) )/6 . DO 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(B342( I ,d)+BX32(K,K)+B432(I,d)*BP42(K,K)+ 

1  B342(K,K)*BX32( I , d ) +B432 ( K , K ) *BP42 ( I ,d)+ 

2  ( B342 ( I ,K)*BX32(d,K)+B432( I , K ) * BP42 ( d , K ) + 
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3  B342(U,K)*BX32(I , K ) +B4 32 ( J , K ) *BP42 ( I , K ) ) *2 . DO) /6 . DO 
IF  (K.EQ.20)  GOTO  140 
K 1 =K+ 1 

DO  140  L  =  K  1 ,20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(B342( I , U ) *BX32 ( K , L ) +B432 ( I , J ) *BP4 2 ( K , L ) + 

1  B342(I,K)*BX32(U.L)+B432(I,K)*BP42(J,L)+ 

2  B342 ( I ,L)*BX32(U,K)+B432(I , L ) *BP42( J , K)+ 

3  B342(U,K)*BX32(I , L ) +B432 ( J , K ) *BP42 ( I ,  L)  + 

4  B342(J,L)*BX32(I , K ) +B432 ( J . L ) *BP42 ( I , K ) + 

5  B342(K,L)*BX32(I , U)+B432 (K , L ) *BP42 ( I , J))/6.D0 
140  CONTINUE 

STORAGE  OF  STIFFNESS  MATRICES 


150  CONTINUE 

WRITE(II)  E2K 
IF  ( IN( 12) . EQ.O)  GOTO  160 
WRITE (11)  E3K.E4K 
160  IF  ( IN(25) . EO. 1 )  STOP 
REWIND  11 
RETURN 
END 

SUBROUTINE  DATA(TITLE) 

INPUT  OF:  GEOMETRY,  MATERIAL  PROPERTIES, 
ELEMENT  SUBDIVISON, 

SYMMETRY  AND  ASYMMETRY, 

ORDER  OF  INTEGRATION, 

ANGLE  AT  ENDS, 

OUTPUT  AND  ITERATION  PARAMETERS. 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 ) , I S . I T , I XCH , LCH . NB AND . NEC , 

1  NEL , NINTP , NINTS , NINTX ,NL , NMAX , NN , NNC . NN5 , NPD , NX , NX  1 , NP , NP 1 , 

2  N2P , N2X , NX2 

COMMON  /  PART  /BE T A , BET A2 , CBET A , CED , DB , DEG , DELT A , DE L T AT , E , ED , 
1  EN,E2,FLEX,PEL,PEL2,PI,R,RL,RM,RN, RNU , RNU 1 .PREC.TH.XEL .TIME 
REAL  T I TL E ( 50) 


RE AD ( 5 , 
10  FORMAT ( 
READ ( 5 , 
RE AD ( 5 , 
READ ( 5 , 
RE AD ( 5 , 
READ( 5 , 
READ( 5 , 
READ( 5 , 
READ( 5 , 
RE AD ( 5 , 
20  FORMAT ( 
RETURN 
END 

SUBROUT 


10)  TITLE 
50A4  ) 

20)  RL , R , TH, E , RNU 
20)  NX , NP 

20)  (I BC (I), 1=1, 2) 

20)  NINTX. NINTP, NINTS 
20)  CBETA , CED 
20)  INL.INL1.INN 
20)  ( I N ( I ) , 1=1 , INL) 

20)  (IN( I) , I=INL1 , INN) 
20)  I XCH , LCH 
20G20 ) 


INE  EQ( OD , OF , NOEL ) 


CALCULATION  OF  NEGATIVE  INTERNAL  EQUILIBRIUM  FORCES 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  EIK  /E2K(20,20) ,E3K( 1540) ,E4K(8855) 

COMMON  /  WHOLE  / I BC ( 2 )  , I  NR , I N( 50 )  , I S . I T , I XCH . LCH , NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX , NX  1 , NP.NP1 , 

2  N2P , N2X , NX2 

DIMENSION  V(20) , F( 20) ,0F(NN5) , NOEL ( 4 , NEL ) . VV ( 20 , 20 ) , OD ( NN5 ) 

C 

DO  10  1=1, NN5 
10  OF ( I ) =0 . DO 
DO  80  M= 1 .NEL 
DO  20  1=1,4 
K  =  5* ( NOEL ( I  , M ) -  1 ) 

15= ( I  -  1  )  *5 
DO  20  J= 1 , 5 
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F ( 1 5+0 ) =0 . DO 
20  V( 15+0) =  0D ( K+0 ) 

QUADRATIC  PART 

DO  30  1=1,20 
F(l)=F(I)+E2K(I,I)*V(I) 

IF  (I .EQ.20)  GOTO  30 
11=1+1 

DO  30  0=11, 20 
F(I)=F(I)+E2K(I,d)*V(0) 
F(d)=F(0)+E2K( I , 0 ) *V( I ) 

30  CONTINUE 

QUBIC  PART 

DO  40  1=1,20 
DO  40  0=1 , 20 
40  VV( I ,d)=V( I )*V(d) 

N  =  0 

DO  50  1=1,20 
N  =  N+  1 

F(I)=F(I)+E3K(N)*VV(I,I)/2. DO 
IF  ( I . EQ . 20)  GOTO  50 
I  1  =  1+1 

DO  50  0=11, 20 
N  =  N+  1 
W=E3K( N) 

F ( I ) =F ( I )+W*VV( 1,0) 
F(d)=F(d)+W*VV(I,I)/2.D0 
N  =  N+  1 
W=E3K(N) 

F(I)=F(I)+W*VV(0,0)/2.DO 
F(d)=F(d)+W*VV( I ,0) 

IF  (0. EQ.20)  GOTO  50 
01=0+1 

DO  50  K=d 1 , 20 
N  =  N+  1 
W=E3K(N) 

F (  I  )  =  F ( I ) +W*VV ( 0 , K ) 
F(d)=F(d)+W*VV(I , K ) 
F(K)=F(K)+W+VV( I ,0) 

50  CONTINUE 

QUARTIC  PART 


N  =  0 

DO  60  1=1,20 
N  =  N+  1 

F(I)=F(I)+E4K(N)*VV(I,I)*V(I)/3.D0 
IF  ( I . EQ. 20)  GOTO  60 
I  1  =  1  +  1 

DO  60  0=11, 20 
N  =  N+  1 
W=E4K(N) 

F(  I  )=F( I )+W  +  VV( I ,  I )*V(0) 
F(d)=F(d)+W*VV( I , I )*V( I )/3 .DO 
N  =  N+  1 
W=E4K( N) 

F(I)=F(I)+W*VV(I,d)*V(d) 

F(d)=F(d)+W*VV(I,I)*V(d) 

N  =  N+  1 
W=E4K ( N ) 

F (  I  )  =F ( I )+W  +  VV(0,0)*V(0)/3 . DO 
F(0)=F(0)+W*VV( I , 0 ) * V( 0 ) 

IF  (0. EQ.20)  GOTO  60 
01=0+1 

DO  60  K=0 1 , 20 
N  =  N+  1 
W=E4K(N) 

F(  I  )=F( I )+W*VV( I , 0) *V(K) *2 . DO 
F(d)=F(d)+W*VV( I  , I  )  * V ( K ) 
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F(K)=F(K)+W*VV( I , I )  *  V  (  d  ) 

N  =  N+  1 
W= E4K ( N ) 

F ( I )=F( I )+W*VV( J, d) *V(K) 

F(d)=F(d)+W+VV( I ,d)*V(K)*2. DO 
F(K)=F(K) +W* VV (I ,d)*V(d) 

N  =  N+  1 
W=E4K(N) 

F (  I  )=F( I )+W*VV(d,K) *V(K) 

F(d) =F(d)+W*VV( I ,  K  )  *  V  (  K  ) 

F(K)=F(K) +W* VV (I ,d)*V(K)*2. DO 
IF  (K.E0.20)  GOTO  60 
K 1 =K+ 1 

DO  60  L  =K 1 , 20 
N  =  N+  1 

W  =  2 . D0*E4K( N) 

F ( I ) =F ( I )+W*VV(d,K)*V(L ) 

F(d)=F(d)+W*VV( I , K ) *V( L ) 

F(K)=F(K) +W*  VV (I , d ) *V( L ) 

F(L)=F(L)+W*VV(I ,d)*V(K) 

60  CONTINUE 

DO  70  1=1,4 
I  5  =  ( 1-1  )*5 
K  =  5  * ( NOEL ( I , M ) -  1 ) 

DO  70  d=1 , 5 

70  OF(K+d)=OF(K+d)-F( I5+d) 

80  CONTINUE 
RETURN 
END 

SUBROUTINE  ERROR ( I , K , L ) 

ERROR  DIAGNOSIS  OF  INPUT 
IF  ( I  . EO .  1 )  WRITE(6  .  10)  K,  L 

10  FORMAT ( '  '/'  NUMBER  OF  ELEMENTS  ='.I5,'  ALLOWED  ONLY'. 14) 

IF  (I.E0.2)  WR I TE ( 6 , 20 )  K , L 

20  FORMAT ( '  '/'  NUMBER  OF  CHANGES  IN  BOUNDARY  CONDITIONS  =', 

1  15/'  POSSIBLE  ONLY'. 14) 

IF  (I.E0.3)  WRITE ( 6 , 30)  K , L 

30  FORMAT ( '  '/'  NUMBER  OF  LOAD  CHANGES  ='.I5,'  POSSIBLE  ONLY', 14) 

IF  (I . EQ . 4 )  WRITE ( 6 , 40)  K 

40  FORMAT ( '  '/'  NOT  ALL  DATA  IN  UNIT  5  IS  NEEDED;  FIRST  SURPLUS 

1  DATA  IS' , 15) 

IF  (I . EQ . 5  )  WR I T  E ( 6 , 50 )  K , L 

50  FORMAT ( '  '/'  NUMBER  OF  ELEMENTS  IN  THE  LONGITUDINAL  DIRECTION 

1  = ' , 15/'  ALLOWED  ONLY', 13) 

IF  (I  . EQ . 6 )  WR I T E ( 6 , 60 )  L , K 

60  FORMAT ( '  '/'  NUMBER  OF  ELEMENTS  IN  THE  CIRCUMFERENTIAL 

1  DIRECTION  = '  , I  5/  '  ALLOWED  ONLY', 13) 

IF  (I . EO . 7 )  WRITE (6,70)  K 

70  FORMAT ( '  '/'  DISPLACEMENT  NUMBER', 14,'  IS  ASSIGNED  LOAD. 

1  BUT  DEFINED  AS  FIXED' ) 

IF  (I . EO . 8 )  WR I TE ( 6 , 80 )  K 

80  FORMAT ( '  '/'  NUMBER  OF  LOAD  STEPS  =',I4,',  ALLOWED  ONLY', 14) 

IF  (I.E0.9)  WR I T  E ( 6 , 90 )  K , L 

90  FORMAT ( '  '/'  NO  SUCCESS  IN  VBSOLV  AT  LOAD  STEP', 13, 

1  '  ,  ITERATON' , 13) 

IF  (I.EQ.10)  WR I T  E ( 6 ,  1 00 )  L.K 

100  FORMAT (  '  '/'  DISPLACEMENT  NORM  OF  I T ERAT I  ON '  , I  3 ,  '  IN  LOAD', 

1  '  STEP', 13.'  IS  GREATER  THAN'/'  1.001  TIMES  THE  FIRST', 

2  '  DISPLACEMENT  NORM  OF  THE  CURRANT  LOAD  STEP.') 

IF  ( I . EO .  1 1 )  WR I T  E ( 6 ,  1 10)  K 

110  FORMAT ( '  '/'  CYLINDER  FORCES  CANNOT  BE  COMPUTED  BY  NODAL 

1  FORCES'/'  WHEN  CROSS  SECTION  IS  ALLOWED  TO  DISTORT.') 

STOP 
END 

SUBROUTINE  FORCE  1 ( NOEL , OD ) 

C 

C  CALCULATION  OF  AXIAL  FORCE  AND  BENDING  MOMENT  OF  CYLINDER 

C  BY  CONSIDERING  ELEMENT  STRESSES 

C 

IMPLICIT  REAL*8(A-H,0-Z) 
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COMMON  /  TMINU5/T ( 20, 20) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) , I S . I T . I XCH , LCH , NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX , NX  1  , NP , NP 1 
COMMON  /  PART  /BETA , BETA2 . CBETA , CED , DB , DEG . DELTA , DELTAT , E , ED , 
1  EN,E2,FLEX,PEL,PEL2,PI,R,RL, RM , RN , RNU , RNU 1 ,PREC,TH,XEL,TIME 
COMMON  /  AF  /AXF(20) ,APF(20) ,APXF(20) 

COMMON  /  TF  /BX 1 ( 20) ,BP2( 20) ,TPXF( 20) 

COMMON  /  BF  /BP3(20) , BX3 ( 20 ) , BX2 ( 20) , BP  1 ( 20) 

COMMON  /  DELVW  /RV( 20) , RW( 20) 

DIMENSION  V(20) . N0EL(4,NEL) ,PS(24) , WS ( 24 ) , 0D(NN5) 

RN=0 . DO 
RM  =  0 . DO 
PHI =  PEL 
X  =  XEL 
I  A  =  1 
I E  =  NEC 

IF  ( IN( 16) . EQ. 2)  GOTO  10 
CALL  GAUSS(PS,WS, 24, XEL, NINTS) 

X  =  PS ( NI NT  S ) 

10  IF  ( IN(30) . EO.O)  GOTO  20 
X  =  -X 

I A=NEL-NP+ 1 
I E  =NEL 

20  CALL  GAUSS(PS,WS, 24, PEL, NINTS) 

LINEAR  STRESSES 

DO  110  I=IA, IE 
DO  30  0=1,4 
L 1 = ( J- 1 )*5 
L2= ( NOEL ( J , I ) -  1 ) *5 
DO  30  L  = 1 , 5 
30  V(L1+L)=0D(L2+L) 

DO  100  d=1  .NINTS 
S=PS(U) 

PT=PHI+S 
DS=DSIN( PT ) 

DC=DCOS ( PT ) 

DCOSN=DC 
DCOSM=DC 
CALL  STH(X.S) 

CALL  SALF(X.S) 

VM=0 . DO 
VN=0 . DO 
T 1=0. DO 
T2=0. DO 
T3=0 . DO 
T4  =0 . DO 
DO  40  K= 1 , 20 
W=V(K) 

T 1 =T 1 +BX 1 ( K ) * W 
T2=T2+BP2(K)*W 
T3=T3+AXF (K) *W 
40  T4=T4+APF (K) *W 
VN=T 1+RNU*T2 
VM  =  T3  +  RNU*T  4 

IF  ( I N ( 15) .EO.O)  GOTO  90 

NONLINEAR  STRESS  CONTRIBUTIONS 

BET  AX3  =  0 . DO 
BETAP3=0 . DO 
BET  AX2=0 . DO 
BET  AP 1 =0 . DO 
EETAX 1 =0 . DO 
BET  AP2=0 . DO 
CALL  BXP(X.S) 

DO  50  K= 1 , 20 

BETAX3=BETAX3+BX3(K)*V(K) 

50  BETAP3=BETAP3+BP3(K)*V(K) 

IF  ( IN( 31 ) . LT . 1 )  GOTO  70 
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c 

DO  60  K= 1 , 20 

BETAX2=BETAX2+BX2(K)*V(K) 

60  BETAP1=BETAP1+BP1 (K)*V(K) 

IF  (IN(31).NE.2)  GOTO  70 
C 

B  ETAX 1 =T 1 
BET  AP2  =  T  2 

70  VN= VN+ (BETAX1*BETAX1+BETAX2*BETAX2+BETAX3*BETAX3+ 

1  RNU* (BETAP1*BETAP1+BETAP2*BETAP2+BETAP3*BETAP3) )/2 .DO 
IF  ( IN(30) . EO.O)  GOTO  90 

INFLUENCE  OF  OVALIZATION  OR  STRETCHING 
OF  CYLINDER  CROSS  SECTION 

CALL  UVW(X,S) 

TV=0 . DO 
TW=0 . DO 
DO  80  K= 1 , 20 
W  =  V ( K ) 

TV=TV+RV(K)*W 
80  TW=TW+RW(K) *W 

WB=(0D(NN5-2) -0D(NN5-NP*5-2) )/2  .  DO 
DC0SM=DC0SM+DS*BETAP3 
DCOSN=DC+(TW*DC+WB-TV*DS)/R 

90  RN=RN+VN*WS(U) 

100  RM=RM-WS(J)*( VN*DCOSN+ VM*DCOSM*  E  2 ) 

1 10  PHI =PHI+PEL2 
RN=RN*EN 
RM=RM*EN*R 

IF  ( IN(30) . EO.O)  RN=RN*DC0S(BETA2 ) 

IF  ( IN( 1 ) . EO.O)  RETURN 
RM=RM+RM 
RN=RN+RN 
RETURN 
END 

SUBROUTINE  FORCE 2 ( OF , OD ) 

CALCULATION  OF  AXIAL  FORCE  AND  BENDING  MOMENT  OF  CYLINDER 
BY  CONSIDERING  THE  NODAL  FORCES 

IMPLICIT  REAL*8(A-H.0-Z) 

COMMON  /  WHOLE  / 1 BC ( 2 ) , I  NR , I N ( 50 )  . I S , I T . I XCH , LCH , NB AND . NEC . 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX . NX  1 . NP.NP1 , 

2  N2P.N2X.NX2 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB , DEG , DELTA . DELT AT , E , ED . 
1  EN.E2,FLEX,PEL,PEL2,PI , R , RL , RM , RN , RNU , RNU 1 ,PREC,TH,XEL,TIME 
DIMENSION  OF ( NN5 ) , OD ( NN5 ) 

IF  (INC  30)  . GT . 0)  CALL  ERROR (  1  1  . I N( 30 ) . 0 ) 

RN=0 . DO 
RM  =  0 . DO 
PHI =0 . DO 
DC=DC0S(BETA2) 


DO 

10  1=1 , NNC 

15  = 

1*5-4 

RN  = 

RN+OF ( 15) 

RM  = 

RM+DCOS ( PHI ) 

*  (  OD  ( 

I5)*0F(I5+2)+0F(I5+3)-0F(I5)*R*DC) 

10  PHI 

=PHI +PEL2 

IF 

( IN( 1 ) . EO.O) 

GOTO 

20 

RN=  RN+RN 
RM=RM+RM 
20  CONTINUE 
RETURN 
END 

SUBROUTINE  GAUSS (X , WT , ND I M , A . NORDER ) 

C 

C*******^************************************************  ************* 

C 

C  THIS  SUBROUTINE  RETURNS  TO  THE  CALLING  PROGRAM  THE  ABSCISSAS 
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C  AND  WEIGHT  FACTORS  FOR  VARIOUS  ORDERS  OF  GAUSSIAN  INTEGRATION. 

C 

C  INPUT: 

C  NORDER=  THE  ORDER  OF  THE  GAUSSIAN  INTEGRATION  FORMULA  WHICH 

C  IS  WANTED.  VALUES  WHICH  NORDER  CAN  TAKE  ARE  2  TO 

C  10,12,  AND  16 . 

C  A  =  THE  LOWER  AND  UPPER  LIMIT  FOR  THE  INTEGRATION  VARIABLE  X 

C  OUTPUT: 

C  X=  A  VECTOR  CONTAINING  THE  X  COORDINATES  OF  THE  INTEGRATION 

C  POINTS 

C  WT  =  A  VECTOR  CONTAINING  THE  WEIGHT  FACTORS 

C  ND I M=  THE  DIMENSION  OF  X  AND  WT 

C 

C  THE  INTEGRAL  OF  F(X)  FROM  X=-A  TO  X=A  IS  THUS  EQUAL  TO 

C  SUM (  WT( I )*F(X( I ) )  ),I=1,  NORDER 

C 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  X(NDIM) ,WT(NDIM) ,XX(24,24) ,WWT(24,24) 

DATA  WWT/24*0.D0, 1 .DO, 23*0. DO, 

1  0. 888888888888889DO.O. 555555555555556D0. 22*0. DO, 

2  0.6521 45 154862546DO.O. 347854845 1 374 54D0 , 22*0. DO, 

3  0. 568888888888889D0,0 . 478628670499366DO , 0 . 236926885056 1 89D0 , 

4  2 1 *0. DO, 0.46 79 13934 57 2691  DO, O. 36076 1 57  3048 1 39D0 , 

5  O. 17132449237917000,21*0. DO, O . 4 1 7959 1 8367 3469D0 , 

6  0.3818300505051 1 9D0 , 0 . 27970539 1 4 8927 7D0 , 0 . 1 29484966 1 688 70D0 , 

7  20*0. DO, 0. 36268378 3378362DO.O  3 1 370664 587 7887DO. 

8  0. 222381034453374D0.0. 101 228536290376D0, 20*0 . DO, 

9  0. 3302 3935500 1260D0.0. 3 1234 707 7040003D0.O. 2606 106964029 35D0, 

*  0.  1 80648 1 60694 8 5 7D0 , 0 . 08 127438836157 4 DO ,  19*0. DO, 

1  0. 2955242247 14753DO.O. 2692667 1 9309996D0 , 0 . 2 190863625 15982DO, 

2  0. 149451349150581D0, 0.06667134430868800,43*0. DO. 

3  0. 2491470458 1340278D0.0. 2 3349 2 5 36538 35480D0. 

4  O. 20316742672306592D0.0. 16007832854334622D0, 

5  0. 10693932599531843D0, 0.04717533638651 1828D0, 

6  90*0.00,0. 1 894506 1 045506850D0 . 0 . 1 826034 1 504492359D0 , 

7  O. 16915651 9 395002 54 DO , O . 1 495959888 1 657673D0 , 

8  0. 12462697 1 25553387D0 , 0 . 095 15851 1682492785D0, 

9  0 . 062 2 5352 393864 7893D0, 0 .0271 524594 1 1 754095D0 , 208 *0 . DO/ 

DATA  XX/24 *0. DO, 0. 577350269 189626D0, 23*0. DO, 

1  O.DO.O. 77459666924 1483D0, 22*0. DO, 

2  0. 33998 1043584856D0, 0.861 13631 1 594053D0 , 22 *0 . DO . 

3  0. D0,0. 5384693 10105683D0, 0.906 17984 59 38664 DO, 21 *0.D0, 

4  0. 238619186083197D0,0.661209386466265D0,0.932469514203152D0, 

5  21*0. DO , 0 . DO ,0.405845151377397D0,0. 741531 185599394D0, 

6  0. 949107912342759DO, 20*0. DO , O  1 83434642495650D0 , 

7  0. 52 55 324099 16329D0.0. 7 966664 7 74 1362 7D0, 0.9602898 56 497 536D0, 

8  2 1 *0 . DO , 0 . 324 2534 23403809D0 ,0.61337 1 432700590D0 , 

9  0.836031 107326636D0, 0.9681 602 3 9 507 6 2 6D0 , 19*0. DO, 

*  0. 14887433898 163 1D0,0 . 433395394 1 29247D0.0 . 6 7 9409 56 8 29 902 4 DO , 

1  0. 865063366688985D0, 0.9739065285 17 172DO, 4 3*0. DO. 

2  0. 12523340851 146916D0.0. 36783 1 498998 1 8020D0 , 

3  O . 5873 179542866 1 744D0, 0 . 769902674 1 94 30468D0 , 

4  0.9041 1725637047486D0.0. 98 15606342467 1926D0, 

5  90*0. DO. 0.0950 125098 37637 440D0.0. 28 16035507 792 58 9  IDO, 

6  0. 4 580 167 7765722 7 39DO.O. 6 17876 244 402 6437 5D0, 

7  0. 7 5540440835500303D0, 0.865631 20238783 174D0, 

8  0. 94 4 57502307 32 3258DO.O. 98940093499 164993D0, 208*0. DO/ 

IF  (NDIM . GE . NORDER)  GOTO  20 

WR I T  E ( 3 ,  10) 

10  FORMAT( 'ODIMENSION  FOR  X  AND  WT  IN  SUBROUITNE  GAUSS  IS  TOO  SMALL 
1  FOR  THE  SPECIFIED  VALUE  OF  NORDER') 

STOP 

20  XORDER= NORDER 
I  0DD  =  0 

IF  ( (XORDER/2 .DO) . GT . ( NORDER/ 2 ) )  I0DD=1 
N=N0RDER/2 

IF  ( I  ODD . EO .  1 )  N= ( NORDER+ 1 ) / 2 

DO  40  I = 1 , N 

IF  (I . EQ. I ODD )  GOTO  30 

N 1 =N+ 1-1 

N2  =  N+ I 
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IF  (I0DD.EQ. 1)  N2=N2-1 
X(N1 )=-XX(I , NORDER ) * A 
X ( N2 ) = -X ( N 1 ) 

WT ( N 1 ) =  WWT ( I , NORDER )*A 
WT(N2)=WT(N1 ) 

GOTO  40 
30  X ( N ) =0 . DO 

WT ( N ) =WWT ( 1 , NORDER ) * A 
40  CONTINUE 
RETURN 
END 

SUBROUTINE  GTCPL ( T I ME ) 

REMAINING  SECONDS  OF  CPU-TIME 
REAL*8  TIME 

CALL  GUINFO( 'LOCCPUT  '  ,K1) 

CALL  GU I  NFO  ( 'GLOBCPUT' ,K2) 

TIME=(DFLOAT(MI N0( K 1 ,K2) ) )/76800.D0 

RETURN 

END 

SUBROUTINE  INOUT(NOEL , P , TITLE , L , IX ,NPL . VL . IXNEW) 

OUTPUT  OF  INPUT  INFORMATION 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) . I  NR , I N ( 50 ) . I S . I T . I XCH , LCH , NE AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL . NMAX , NN , NNC , NN5 , NPD , NX , NX  1 . NP . NP 1 , 

2  N2P , N2X , NX 2 

COMMON  /  PART  /BETA , BETA2 , CBETA . CED . DB , DEG , DELTA . DELTAT , E , ED , 
1  EN, E2 , FLEX , PEL , PEL 2 , PI , R , RL , RM, RN , RNU , RNU1 , PR EC , TH, XEL 
DIMENSION  NOEL (4, NEL ) , IX(NN5) ,P(NN5) ,NPL(NN5) , VL ( NN5 ) , LT(5). 

1  IXNEW(NL) 

REAL  TITLE! 50 ) 

OUTPLUT  OF  GEOMETRY  AND  CYLINDER  IDEALIZATION 

CALL  TIME ( 6 , O, LT ) 

IF  (L.E0.2)  GOTO  120 
IF  ( I N ( 26 ) . GT . 0 )  IN( 26 ) = 1 

WRITE ( 7  ,  10)  LT, TITLE, RL,R,TH,E. RNU ,(IN(I),I  =  1,35),NX,NP,PEL2, 

1  BETA , NBAND 

10  FORMAT!  '  1  '  , 5A4/50A4/ / ,  ' INPUT  DATA '/ 10!  ' * ' )////' L  ENGTH '  , F 13 . 3. 

1  '  MM '/'RADIUS' , F 1 3 . 3 , '  MM ' / ' THI CKNE SS ' , F 1 0 . 3 , '  MM'/ 

2  /'YOUNG' , 1H' , ' S  MODULUS ', F 1 1 . 3, '  MPA', 

3  /'POISSON' , 1H' , 'S  RATIO ' , F 1 1 . 3, 

4  /'PARAMETER  L I  ST '  , 7 ( / , 5  I  4  )  , 

5  ///'NUMBER  OF  ELEMENTS', 

6  // ' LONGITUDINAL : ' , 16 , 

7  / 'CIRCUMFERENTIAL 13, 

8  /'ANGLE  PRESCRIBED  PER  ELEMENT  =',F9.6.'  RAD', 

9  /'ANGLE  (STEPSIZE)  AT  ENDS  DUE  TO  MOMENT  =',E14  8. 

*  /'HALF  BANDWIDTH  =',I3// 

1  /'SYMMETRY  PROPERT I E S ' // ,  ' X - Z  PLANE:') 

DO  100  1=1,2 
IF  (IBC(I)-I)  20,40,60 
20  WR I TE ( 7 , 30 ) 

30  FORMAT!  '  +  1  IX,  'NOT  SPECIFIED') 

GOTO  80 
40  WR I TE ( 7 , 50 ) 

50  FORMAT! 1 IX, 'ASYMMETRY' ) 

GOTO  100 
60  WR ITE(7,70) 

70  FORMAT! '+', 1 IX, 'SYMMETRY' ) 

80  IF  (I ,E0. D  WRITE ( 7 , 90) 

90  FORMAT! '  Y-Z  PLANE:') 

100  CONTINUE 

WRITE(7,  1 10)  NINTX, NINTP, NINTS 

110  FORMAT! '  '///'ORDER  OF  GAUSSIAN  INTEGRATION  FOR  STIFFNESS  ', 

1  'MATRIX'///, 

2  '  DIRECTION  ORDER ' //5X ,  ' X ' , I 9/4X ,  ' PHI '  , I  8/// , 

3  'ORDER  OF  GAUSSIAN  INTEGRATION  FOR  STRESS  CALCULATION  =',I3) 


. 
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c 
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c 
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RETURN 


OUTPUT  OF  NODE 


ELEMENT  CONNECTION 


120  WR I TE ( 7 , 130) 

130  FORMAT ( '  '///'NODE  ELEMENT  CONNECTIONS' 

1  ///'ELEMENT  NODES'/) 

DO  140  1=1 , NEL 

140  WR I T E ( 7 ,  1 50)  I , ( NOEL ( U , I ) , d= 1 . 4 ) 

150  FORMAT ( '  ' , I5.6X.4I4) 

OUTPUT  OF  NODAL  BOUNDARY  CONDITIONS 

WR I TE ( 7 , 160) 

160  FORMAT ( '  '///'FREEDOM  OF  DISPLACEMENTS  ( 0=C0NSTRA INT  TO  0,', 

1  '  1  =  F R E E ,  2  =  PRESCRIBED  BY  ANGLE  AT  END)' 

2  ///'  NODE  U  V  W  W.X  (W.PHI  -V)/R'/) 

DO  170  1=1 ,NN 

170  WR I TE ( 7 ,  1 80 )  I , ( I X ( ( I -  1 ) *5+J ) , J= 1 . 5 ) 

180  FORMAT (  '  '  , 1 6 ,  1  X  ,  4  I  4 , I  8 ) 

IF  (LCH.EQ.O)  RETURN 

190  WR I TE ( 7 , 200)  ( ( NPL ( I ) , I XNE W ( I ) . VL ( I ) ) . I =7 , NL ) 

200  FORMAT ( '  '///'  PRESCRIBED  LOADS  AND  DISPLACEMENTS', 

1  //,'  NR.  I XNE W  VALUE  (N  OR  NMM ) ' // ( I  5 . I  4 . E2 1  .  1 0 ) ) 

RETURN 

END 

SUBROUTINE  INPUT1 ( NOEL , P . I  X , VL . NPL , IXNEW) 

INPUT  OF  CYLINDER  DATA  AND  INITIALIZING  OF  LOADING  VARIABLES 


IMPLICIT  REAL  *8 ( A-H , 0-Z ) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) , I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD . NX . NX  1 . NP , NP 1 , 

2  I  START , I HALF .NEXT IT , LCAUSE . NEXT  I S , NEXTOV , ITOVAL . ITOVIT , NOVA , 

3  NCONV 

COMMON  /  PART  /BETA , BETA2 , CBETA . CED , DE , DEG . DELTA , DELTAT , E , ED 

1  EN,E2,FLEX,PEL,PEL2,PI,R,RL, RM . RN , RNU , DNORM , PR EC , TH, XEL , TIME 

2  XD . REDUCE . FLOAD , FSTEP , FDELT A , DONM 


DIMENSION  I 

X ( 605 ) 

, NOEL  1 

[4 

,100) 

, 

P ( 605 ) , NPL (605 

I XNEW ( 605 ) 

REAL  T I TL E ( 

50) 

CAL 

L  DAT  A ( T 

ITLE) 

NEL 

=  NX  *NP 

IF 

(NX . GT .  1 

0) 

CALL 

E 

RROR  ( 

5 

,  NX  , 

10) 

I  F 

(INC  17)  . 

GT . 50) 

CALL 

E 

RROR  ( 

8 

,  I  N( 

18 ) , 50) 

IF 

(NEL .GT . 

100) 

CALL 

E 

RROR  ( 

1 

,  NEL 

,100) 

NN5 

=  ( NX+  1  )* 

(NP+1 ) 

*5 

IF 

( I XCH . GT 

.  NN5 ) 

CALL 

E 

RROR  ( 

2 

,  I XCH , NN5 ) 

IF 

(LCH.GT . 

NN5  ) 

CALL 

E 

RROR  ( 

3 

,  LCH 

,  NN5 ) 

INITIALIZATION  OF  VARIABLES  AND  FLAGS 


I  ST  ART  =0 
LCAUSE=0 

PI =3 .  14  1592653589793D0 

NX  1 =NX+  1 

NP 1 =NP+  1 

NN=NX 1 *NP 1 

NBAND=(NP1+2)*5 

NEC=NP 

NNC=NP 1 

XEL=RL/ (4 . DO* NX ) 

PEL=PI/(2 . DO*NP ) 

IF  ( IN( 26) . NE .0)  PEL=DFLOAT ( IN( 26) )/ 1000000000 . DO 
PEL2=PEL+PEL 

EN=E*TH*R/( 1 . DO-RNU*RNU ) 

E2=TH*TH/R/ 12 . DO 

WUR=DSQRT ( 3 . DO* ( 1 ,DO-RNU*RNU) ) 

BETA  =  RL*TH/R/R/2 . DO/WUR*CBET  A 
DB=BETA 

ED  =  CED*(DMIN1  (  (PI*PI*R*R/RL/2  .DO)  ,  (  RL*TH/WUR/R  )  )  )/2  .  DO 
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132 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


c 

c 
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D0NM=2*RNU*R*R/RL 

IF  ( IN( 30) . EQ . 0)  DONM=0 . DO 

IF  ( IN(25) . EQ. 1 )  CALL  CYLSTF 

INITIALIZATIONS  FOR  NONLINEAR  PROBLEM 


FLEX=-RL/EN/ 12 . 56637D0 

DELT  A  =0 . DO 

IS=0 

RM=0. DO 

RN=0 . DO 

I HAL  F  =0 

FL0AD=0 . DO 

FSTEP= 1 .DO 

REDUCE =0.56234D0 

IF  ( IN(29) .GT.O)  REDUCE=DFLOAT( IN(29) )/ 10000 . DO 

NEXT0V=0 

NC0NV=0 


DETERMINATION  OF  BOUNDARY  CONDITIONS 
CALL  BCI(IX) 

IF  ( I N ( 12) . EQ. 1 )  GOTO  10 
CALL  L INEND ( P , I X ) 

GOTO  30 

10  DO  20  1=1 ,NP1 
1 5= ( I-1)*5 
DO  20  U= 1 , 5 
20  I  X ( I  5  + J ) =2 

30  CALL  CHANGE ( IXNEW, I  X , NPL ,VL) 

IF  ( IN( 22) . EO . 1 )  CALL  NORMD ( DNORM .IX) 

DETERMINATION  OF  ELEMENT  NODE  CONNECTIONS 


DO  40  1=1 , NX 
K=( 1-1 )*NP 
L  =K+ I  -  1 
DO  40  J=1 ,NP 
KU=K+U 
LJ=L+J 

NOEL  (  1  ,KU)=LJ+1 
N0EL(2,KJ)=Ld+NP1+1 
N0EL(3,KJ)=LJ+NP1 
40  NOEL ( 4 , K J ) =LJ 

IF  ( IN( 5 ) .EO. 1)  CALL  INOUT(NOEL,P 
IF  (IN(6).EQ.1)  CALL  INOUT(NOEL,P 
RETURN 
END 

SUBROUTINE  INPUT2 


TITLE 

TITLE 


1 , IX , NPL , VL , IXNEW ) 
2, I  X , NPL , VL , IXNEW) 


DATA  CHANGES  DURING  RESTART 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N( 50 ) , I S , I T , I XCH , LCH , NB AND . NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX . NN , NNC , NN5 , NPD . NX , NX  1  , NP , NP 1  , 

2  I  START , IHALF , NEXTIT , LCAUSE , NEXT  I S , NEXTOV . ITOVAL . ITOVIT .NOVA , 

3  NCONV 

COMMON  /  PART  /B E T A , B ET A 2 , CB E T A , CED . DB , DE G , DE L T A , DE L T AT , E , ED , 

1  EN.E2,FLEX.PEL.PEL2,PI,R.RL.RM,RN, RNU , DNORM .PREC.TH.XEL.TIME, 

2  XD, REDUCE. FLOAD, FSTEP . FDELTA , DCNM . XDN 

(IF  NOT  ENOUGH  DATA  IN  FIRST  INPUT  LINE,  NO  CHANGES  ARE  MADE) 

READ( 5 ,  1 0 , END  =  50 )  NCHI N , NED , NDB . NREDUC , NE WI X , NLOAD 
10  FORMAT ( 10G20) 

20  IF  (NCHIN.EO.O)  GOTO  30 
READ( 5  ,  10)  I , J 
I N( I ) =d 
NCHIN=NCHIN- 1 
GOTO  20 
30  CONTINUE 
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EDNEW= 1 .00 
DBNEW= 1 .DO 

IF  (NED.EQ.1)  READ( 5,10)  EDNEW 

IF  (NDB.EQ.1)  READ( 5,10)  DBNEW 

ED=ED*EDNEW 
DB=DB*DBNEW 

FSTEP=FSTEP*(DMIN1 ( EDNEW , DBNEW ) ) 

IF  ( NREDUC . EQ . 1 )  READ(5,10)  REDUCE 
IF  ( (NEWIX+NLOAD) . EQ.O)  GOTO  40 

CHANGE  OF  LOADS  AND  BOUNDARY  CONDITIONS  NOT  YET  IMPLEMENTED 

40  RE AD ( 5 , 10, END=50)  L 
CALL  ERROR (  4  ,  L  ,  L  ) 

50  NC0NV=0 

IF  (XDN.LT.XD*10.D0“IN(  19))  NC0NV=1 

RETURN 

END 

SUBROUTINE  I TERA ( I NDEX , DV , OD , VL ) 

REDUCTION  OF  LOAD  STEP 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 ) , I S , I T , I XCH , L CH . NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX . NX  1 . NP.NP1 , 

2  I  ST  ART , I  HAL  F 

COMMON  /  PART  /BET A , BETA2 , CBETA , CED , DB , DEG , DELT A . DELTAT . E , ED , 

1  EN,E2,FLEX,PEL,PEL2,PI ,R,RL, RM , RN , RNU , DNORM , PR EC , TH , XEL , TIME , 

2  XD , REDUCE , FLOAD , FSTEP , FDELTA 
DIMENSION  DV(53) ,0D( NN5 ) , VL ( NL ) 

IF  (INDEX . GT . 1 )  GOTO  10 
REWIND  12 
WR I TE (  12)  OD 

FDELTA= ( DV ( I S+2 ) -DELT AT ) /2 . DO 
IF  ( I  HALF . GT . 0 )  GOTO  30 
FDELT  A  =  DELTA 
FLO AD  =DF  LOAT ( IS) 

RETURN 


10  I S= I S -  1 

BETA2=BETA2-DB 

FLOAD=FLOAD-FSTEP 

IF  (IHALF.EO.O)  WRITE(7,20) 

20  FORMAT(  ' 1  9(  '“'),  '  START  OF  LOAD  STEP  REFINEMENT  ',9('“')) 

30  I HALF  =  I HAL  F  + 1 
REWIND  12 
R  E  AD ( 12  )  OD 
DB=DB*REDUCE 
ED=ED*REDUCE 
FSTEP=FSTEP*REDUCE 

IF  (IS. EO.O  .OR.  I N ( 13)  . NE . 2 )  FDELT  A  =  0 . DO 
FDELT A = FDELT A ‘REDUCE 
DELT  A  =  FDELT  A 
IF  (LCH.EO.O)  GOTO  50 
DO  40  1= 1 ,NL 
40  VL ( I ) =VL ( I ) ‘REDUCE 
50  WR I TE ( 7 , 60 ) 

60  FORMAT ( '  LOAD  STEP  IS  REDUCED') 

RETURN 

END 

SUBROUTINE  KT 

CALCULATION  OF  THE  ELEMENT  TANGENT  STIFFNESS  MATRIX 
(  STORED  IN  A  UPPER  TRIANGLE  ) 

IMPLICIT  REAL»8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N( 50 ) , I S , I T , I XCH , LCH , NB AND . NEC 
COMMON  /  EIK  /E2K( 20, 20) , E3K( 1540) , E4K( 8855 ) 

COMMON  /  ETANK  / ETK ( 20 , 20 ) , V ( 20 ) 

DIMENSION  VV ( 20 , 20) 


' 


■ 
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1  154 

1  155 

1  156 

1  157 

1  158 

1  159 

1  160 

116  1 

1  162 

1  163 

1  164 
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1  166 

1  167 

1  168 

1  169 

1  170 

117  1 

1  172 

1  173 

1  174 

1  175 

1  176 

1  177 

1  1  78 

1  179 

1  180 

118  1 

1  182 

1  183 

1  184 

1  185 

1  186 

1  187 

1  188 

1  189 

1  190 

119  1 

1  192 

1  193 

1  194 

1  195 

1  196 

1  197 

1  198 

1  199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

12  11 

1212 

1213 

1214 
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1217 

12  18 

1219 

1220 
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1222 

1223 

1224 


C)  n  n  non  on 
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QUADRATIC  PART 

DO  10  1=1,20 
DO  10  J=I ,20 
10  ETK  (  I  ,d)=E2K(  I  ,  J) 

IF  ( IS . EQ. (- 1 ) )  GOTO  50 

QUBIC  PART 


N  =  0 

DO  20  1=1,20 
N  =  N+  1 

ETK( I , I ) =  ETK ( I , I )  +  E3K(N)*V( I ) 

IF  (I . EQ . 20 )  GOTO  20 
11=1+1 

DO  20  J=I 1 , 20 
N  =  N+  1 
W=E3K(N) 

E  TK ( I , I ) =  ETK ( I , I ) +  W*  V  (  J ) 

ETK ( I , J ) =  ETK ( I , J ) +W* V ( I ) 

N  =  N+  1 
W=E3K(N) 

ETK ( I ,J)=ETK(I , J ) +W*V(  J ) 

ETK(J, J) =ETK( J, J)+W*V( I ) 

IF  ( J. EQ . 20)  GOTO  20 
J1 =J+  1 

DO  20  K= J 1 , 20 
N  =  N+  1 
W=E3K(N) 

ETK ( I , J)=ETK( I , J)+W*V(K) 

ETK ( I . K)=ETK( I , K ) +  W*V( J ) 
ETK(d,K)=ETK(d,K)+W*V( I ) 

20  CONTINUE 

QUARTIC  PART 

DO  30  1=1,20 
DO  30  J=I , 20 
30  VV( I , J)=V( I ) *V( J) 

N  =  0 

DO  40  1=1,20 
N  =  N+  1 

ETK ( I . I )=ETK( I , I )+E4K(N) *VV( I , I ) 
IF  ( I . EQ . 20)  GOTO  40 
11=1+1 

DO  40  J=I 1 , 20 
N  =  N+  1 
W=E4K( N) 

ETK( I , I )=ETK( I , I )+W*VV( I , U)*2 .DO 
ETK( I , J) =ETK( I , d)+W*VV( I , I ) 

N  =  N+  1 
W  =  E4K ( N ) 

ETK( I , I ) =ETK( I , I ) +W*  VV ( J, J) 

ETK( I , d)=ETK( I , d)+W*VV( I , J)*2 . DO 
ETK(d , J)=ETK( J, d)+W+VV( I , I ) 

N  =  N+  1 
W=  E4K ( N ) 

ETK(I,d)=ETK(I,d)+W*VV(d,d) 
ETK(d,d)=ETK(d,d)+W*VV( I , d ) *2 . DO 
IF  ( d . EQ . 20 )  GOTO  40 
d1=d+1 

DO  40  K  =  d 1 , 20 
N  =  N+  1 

W= E4K ( N ) *2 .DO 

ETK( I , I ) =ETK( I , I )+W*VV(d,K) 

ETK ( I , d)  =ETK( I , d ) +W*  VV ( I , K ) 

ETK( I ,K)=ETK( I ,K)+W*VV( I , d) 
ETK(d.K) =ETK(d, K)+W*VV( I , I )/2 . DO 
N  =  N+  1 

W=E4K(N)*2 . DO 

ETK ( I , d)=ETK( I , d ) +W* VV ( d , K ) 

ETK( I , K ) =  ETK ( I , K ) +W * VV ( d , d ) /2 . DO 


. 


1225 

1226 

1227 

1228 

1229 

1230 

123  1 
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o  o  o  o  non 
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ETK(d,U)=ETK( J,  J)+W*VV( I , K ) 

ETK(J.K)=ETK(J,K)+W*VV(I,J) 

N  =  N+  1 

W=E4K( N) *2 . DO 

ETK(  I  ,<J)=ETK(  I  ,J)+W*VV(K,K)/2  .  DO 
ETK( I ,K)=ETK( I ,K)+W*VV(J,K) 

ETK( U,K)=ETK( U,K)+W*VV( I ,K) 

ETK(K,K)=ETK(K,K)+W*VV( I , J) 

IF  (K.EQ.20)  GOTO  40 
K 1 =K+ 1 

DO  40  L  =K 1 , 20 
N  =  N+  1 

W=E4K(N) *2 . DO 

ETK ( I , J ) =  ETK ( I . U)+W*VV(K, L ) 

ETK ( I , K ) =ETK ( I , K ) +W* VV ( 0 , L ) 

ETK ( I , L ) =ETK( I , L )+W*VV( U,K) 

ETK(U,K)=ETK(U.K)+W*VV( I ,L) 

ETK(U,L)=ETK(U,L)+W*VV( I ,K) 

ETK(K, L )=ETK(K , L)+W*VV( I , 0) 

40  CONTINUE 
50  CONTINUE 
RETURN 
END 

SUBROUTINE  LINEND(P,IX) 

BOUNDARY  CONDITIONS  FOR  LINEAR  CYLINDER  PROBLEM 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , IN ( 50) , I S , I T , I XCH , LCH , NBAND , NEC , 

1  NEL, NI NT P, NINTS.NINTX.NL, NMAX , NN , NNC . NN5 , NPD , NX , NX  1 . NP , NP 1 , 

2  N2P , N2X , NX2 

COMMON  /  PART  /B E T A , B E T A 2 , CB E T A , C ED , DB . D E G . D E L T A . PE L T AT , E . E D , 
1  EN,E2,FLEX,PEL,PEL2,PI,R.RL, RM , RN , RNU , RNU 1 , PREC.TH.XEL 
DIMENSION  P ( NN5 )  ,  I  X  ( NN5 ) 

DO  10  1=1, NN5 
10  P ( I ) =0 . DO 
6ETA2=BETA 
PHI =0. DO 
K=NN5-NNC*5 
DO  30  1=1 , NNC 
L= ( I -  1 ) *5 
BC  =  BET  A*DCOS( PHI ) 

I X( L+ 1 ) =2 
P(L+1  ) =-R*BC+ED 
I  X ( L  +  2 ) =0 
IX(L+3)=0 
I  X ( L  +  4  )  =2 
P ( L  +  4 ) =BC 
I  X ( L  +  5 ) =0 

IF  (IN(I).EO.I)  GOTO  30 
LK=L+K 
DO  20  0=1,5 
I  X ( LK  + J ) =0 
20  P( LK  +  J) =-P( L+J) 

30  PHI =PHI+PEL2 
RETURN 
END 

SUBROUTINE  LOADS ( IX , IV, P ,OKT . VL ,NPL , IXNFW, OD ) 

COMPUTATION  OF  LOAD  VECTOR  AND  CHANGE  OF  STIFFNESS  MATRIX 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) . I NR , I N ( 50 ) , I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL ,NINTP,NINTS,NINTX,NL , NMAX , NN , NNC , NN5 , NPD , NX . NX  1 . NP . NP 1 , 

2  I  ST ART, I  HALF , NEXT  I T , LCAUSE , NEXT  I S . NEXTOV . ITOVAL 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED . DB , DEG , DELTA , DELT AT , E . ED , 
1  EN , E2 , FLEX , PEL , PEL2 , P I , R , RL , RM , RN , RNU , RNU 1 .SIGMA , TH , XEL , TIME 
DIMENSION  OKT ( NBAND , NN5 ) , IV(NN5) , IH(605) , P(NN5) , IX(NN5) . 

1  H( 605 ) , VL ( NL ) , NPL ( NL ) . IXNEW(NL ) , 0D(NN5) , I D ( 605 1 , IF (4) 

LOGICAL  SUCCES 


C 


. 
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1301 
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1331 
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1342 
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COMPUTATION  OF  LOAD  VECTOR 

IF  (I5.GT.1  .OR.  IT.GE.O)  GOTO  20 
10  CALL  SPARSE ( IV. IH) 

IF  ( I N ( 12) . EO.O)  GOTO  60 
GOTO  30 
20  REWIND  13 

READ (13)  IV, ( IH( I ) . 1= 1 , NN5 ) 

30  DO  40  1=1 , NN5 
40  P ( I ) =0 . DO 
XED=ED+DELT  A 

IF  (IT.EQ.-1)  CALL  NONEND ( P , XED , DB ) 

IF  (IN( 13) .NE.2  .OR.  IT.LT.2)  GOTO  60 
IF  (NEXTOV. EO.O)  CALL  NONEND ( H , DELTA , 0 . DO) 

IF  (NEXTOV. EO. 1 )  CALL  OVAL(H.OD) 

DO  50  1=1 , NN5 
50  P ( I  )  =P ( I ) +H( I ) 

60  IF  (IT.E0.-1  .AND.  NPL(2).GT.O)  CALL  L0ADS2 ( VL , P , NPL , I XNEW , 2 ) 
IF  ( I N ( 22 ) .NE.2)  GOTO  170 

COMPUTATION  OF  DETERMINANT  WITHOUT  NONZERO  PRESCRIBED 
DISPLACEMENTS 

WR I T  E ( 8  )  OKT.IV 
DO  70  1=1 , NN5 
IF(  IX( I )  .GT .0)  GOTO  70 
I V( I )  =  1 
I H  (  I  )  =  1 
70  CONTINUE 

DO  80  1=1, NN5 
80  H ( I ) =0 . DO 

CALL  VBSOL V ( NB AND- 1 , NN5 , O . ID- 15 , NN5 , H, OKT . ID , NB AND . DET . 

1  IEXDET.IV, .TRUE. .SUCCES) 

IF  (  .NOT. SUCCES)  CALL  E RROR I  9 , I S , I T ) 

OUTPUT  OF  THE  DETERMINANT  AND  ITS  RELATIVE  CONDITION 

KK=IDINT (DL0G10( DFLOAT ( IABS(IEXDET))))+1 
WR I T  E ( 9 , 90 )  KK 

90  FORMAT ( 1 3H(  1H+ , 32X , I , I  2 ,  ' ) ' ) 

REWIND  9 

RE AD (9, 100)  IF(1),IF(2).IF(3),IF(4) 

100  FORMAT ( 4A4 ) 

WR I TE ( 7 , 1 10)  DET 

110  FORMAT (  '  DETERMINANT  =',F10.6.'  *  10  *  * '  ) 

WR ITE(7,IF)  IEXDET 

IF  ( IN( 22 ) . EO. 1 )  CALL  TE ST ( OKT . DET , I EXDET . DNORM ) 

INN5=NN5 
DO  120  1=1 , NN5 
120  I NN5= I NN5- I D ( I ) 

IF  (INN5.EQ.0)  GOTO  160 
WR I T E ( 7  ,  130) 

130  FORMA T ( '  NEGATIVE  DIAGONAL  ELEMENTS  IN  FOLLOWING  ROWS:'/) 

DO  140  1=1 , NN5 

140  IF  ( ID( I  )  . EO . -  1 )  WRITE  (7,150)  I 
150  FORMAT ( '  ' , 14) 

160  RE AD ( 8 )  OKT , IV 

CHANGE  OF  STIFFNESS  MATRIX 

170  CONTINUE 

DO  180  1=1, NN5 
180  H( I )=P( I ) 

DO  240  1=1 , NN5 
IF  (IX(I)-I)  230,240, 190 
190  I  1  =  I V( I ) 

12=1-1 

IF  ( 12  .  LT  .  I  1  )  GOTO  210 
DO  200  J=I 1 , 12 
IZ=NBAND-I+J 

P( J)=P( J)-H( I  )*OKT( IZ, I ) 

200  OKT ( IZ, I )=0.D0 
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210  0KT ( NBAND , I ) = 1 . DO 
J1=I+1 
U2=IH( I ) 

IF  (J2.LT.J1)  GOTO  230 
DO  220  U  =  J1 , J2 
I Z=NBAND+ I  -  J 

P(U)=P(J)-H(I)*OKT(  IZ,  J) 

220  OKT  ( I Z  ,  <J )  =0  .  DO 
230  I V ( I )  =  I 
IH( I ) = I 
240  CONTINUE 

DO  250  1=1, NN5 

250  IF  (IX(I).NE.I)  P ( I ) =H( I ) 

IF  ( I N( 8 ) . EO .  1  -OR.  I N ( 8 )  . E  0 . 3 ) 

1  CALL  PRTMAT(OKT, NBAND, 1 , 1 , NBAND, NN5, 'OKT, LOAD' ) 

RETURN 
END 

SUBROUTINE  LOADS 2 ( VL . OF , NPL , IXNEW,LD) 

ADDITION  OF  LOADS  AND  DISPLACEMENTS  DESCRIBED  IN  INPUT-FILE 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR . I N ( 50 ) , I S . I T , I XCH . LCH . NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC . NN5 . NPD . NX , NX  1  . NP , NP 1  , 

2  N2P.N2X.NX2 

DIMENSION  VL(NL) , NPL ( NL ) . IXNEW(NL) , 0F(NN5) 

ADDITIONAL  LOADS 

IF  (LD.NE.1  .OR.  NPL(I).EQ.O)  GOTO  40 
I E  =  6  +  NPL ( 3  ) 

IF  (IE.E0.6  .OR.  ( IT . EO .0. AND . IS . GT . 1 ) )  GOTO  20 
DO  10  1=7  ,  IE 
J  =  NPL (  I  ) 

10  OF(U)=OF(J) +VL ( I ) 

20  IF  ( NPL ( 4 ) . EO . 0 )  RETURN 
DIS=DFLOAT ( IS) 

IF  ( IT . EO • 0 )  DIS=1  .DO 
I  A  =  I  E  +  1 

I E  =  I  A- 1 +NPL ( 4 ) 

DO  30  I  =  IA  ,  IE 
<J  =  NPL  (  I  ) 

30  0F( J)=OF( J)+VL(I ) * D I S 
RETURN 

ADDITIONAL  DISPLACEMENTS 

40  IF  (IT.GE.O)  RETURN 

IF  ( NPL ( 2 ) . EQ . 0 )  RETURN 
IF  ( NPL ( 5 ) . EO • 0  .OR.  IS.GE.2)  GOTO  60 
I A=7+NPL ( 1 ) 

I E  =  I  A  -  1 +NPL ( 5 ) 

DO  50  I  =  IA  .  IE 
50  OF ( NPL ( I ) ) = VL ( I ) 

60  IF  ( NPL ( 6 ) . EO • O)  RETURN 
I  A  =  7  +  NPL ( 1 ) +NPL ( 5 ) 

I E  =  I  A- 1 +NPL ( 6 ) 

DO  70  I  =  I  A , IE 
70  OF ( NPL ( I ) ) = VL ( I ) 

RETURN 
END 

SUBROUTINE  LONGER(OD, DELTA ) 

APPROXIMATE  NODAL  DISPLACEMENTS  FOR  AXIAL  FORCE  CA .  ZERO 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) . I S , I T , I XCH , LCH , NBAND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 . NPD , NX , NX  1 . NP , NP 1 , 

2  N2P.N2X.NX2 
DIMENSION  OD ( NN5 ) 

C 

DO  10  1=1 , NX 
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' 
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K= ( I -  1 ) *NNC-4 

DR=DELTA*DFL0AT(NX1-I )/DFL0AT(NX) 
DO  10  J=1 , NNC 
10  0D( U*5+K)=0D( J*5+K)+DR 
IF  ( IN( 1 ) .NE .0)  GOTO  30 
NX2=NX+2 
N2X=NX+NX 
DO  20  I =  NX2 , N2X 
K= ( 1-1 )*NNC-4 

DR  =  DELTA*DFLOAT( I -NX  1 ) /D FLOAT ( NX ) 
DO  20  0= 1 , NNC 
20  0D(J*5+K)=0D(J*5+K)-DR 
30  CONTINUE 
RETURN 
END 

SUBROUTINE  MAIN1 


ONE  QUARTER  OF  THE  CYLINDER  IS  CONSIDERED 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 ) , I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL .NINTP , NINTS.NINTX.NL , NMAX , NN . NNC , NN5 ,NPD,NX,NX1 , NP . NP 1 . 

2  ISTART, IHALF , NEXTIT.LCAUSE .NEXTIS 

DIMENSION  OKT ( 65 , 605 ) .NOEL (4, 100) , P(605) . IV1605) . IX (605) . 

1  OD ( 605 ) ,  D  V  (  5  3  ) , OF (605) ,VL(605) ,NPL(605)  , IXNEW(605) 


CALL 

INPUT 

10  CALL 

ASSEM 

CALL 

LOADS 

CALL 

SOLVE 

IF  ( 

NEXTIS 

STOP 

END 

SUBROUTINE 


(NOEL , P , IX , VL , NPL , IXNEW) 

NOEL, OKT. IX, OD) 

IX, IV.P.OKT.VL.NPL. IXNEW.OD) 

OKT , P , IV, OD, NOEL , IX ,DV, OF . VL , NPL . IXNEW) 

GT.O)  GOTO  10 

MAI  NR (OKT , P.OD.NOEL ,0F , IX.DV, IV, VL ,NPL , IXNEW) 


MAIN  SUBROUTINE  FOR  RESTART  FACILITY 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 )  , I S , I T , I XCH , LCH . NB AND . NEC , 

1  NEL .NINTP , NINTS , NINTX , NL , NMAX , NN . NNC , NN5 , NPD , NX , NX  1 , NP , NP 1 , 

2  ISTART, IHALF .NEXT  IT , LCAUSE , NEXT  I S 

DIMENSION  OKT ( NB AND , NN5 ) , NOEL (4. NEL) . P(NN5) , IV(NN5) , 

1  I  X ( NN5 )  , OD ( NN5 ) ,DV(53)  ,0F(NN5)  , VL ( NL ) , NPL ( NL ) , I XNEW ( NL ) 


CALL  I  NP'JT  2 
GOTO  20 

10  CALL  ASSEM( NOEL , OKT , IX , OD) 

CALL  LOADS (  IX,  IV.P.OKT, VL , NPL , IXNEW.OD) 

20  CALL  SOLVE(OKT , P , IV, OD ,NOEL , IX ,DV , OF , VL , NPL , IXNEW) 

IF  (NEXTIS . GT .0)  GOTO  10 

STOP 

END 

SUBROUTINE  NEWCYL 


CALCULATION  OF  THE  THREE  STIFFNESS  MATRICES 
IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2  )  ,  I  NR ,  I N ( 50 )  .  I S  ,  I T .  I XCH , LCH . NB AND , NE C , 

1  NEL , NINTP , NINTS .NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX , NX  1 , NP , NP 1 , 

2  N2P , N2X , NX2 

COMMON  /  PART  /BETA , BETA2 . CBETA , CED , DB , DEG , DELTA , DELTAT , E , ED , 


■ 


1513 

1514 

1515 

1516 

1517 

15  18 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

154  1 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

157  1 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 
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1  ENIE2,FLEXtPEL,PEL2,PI , R . RL , RM , RN, RNU , DNORM , SIGMA . TH, XEL . TIME 


COMMON  /  EIK 
COMMON  /  AF 
COMMON 
COMMON 


/E2K( 20, 20) . E3K( 1540) , E4K(8855) 
/AXF( 20) , APF( 20) , APXF(20) 

/  TF  /BX 1 ( 20) , BP2 ( 20) , TPXF ( 20 ) 

/  BF  /BP3 ( 20) , BX3 ( 20) , BX2 ( 20) ,BP1( 20 ) 

DIMENSION  X ( 24 ) , WX (24) , P ( 24 ) ,WP(24) ,T 1(20) ,T2(20) 

1  BX 12(20, 20) . BX22 ( 20 . 20) ,BX32(20.20) ,BXX(20.20) . 

2  BP  12(20, 20) , BP22 ( 20 , 20) ,BP32(20,20) ,BPP(20,20) , 

3  BXP2 ( 20 , 20 ) , BXNBP ( 20 , 20) , BPNBX ( 20 , 20) 


CALL  GAUSS ( X , WX , 24 , XEL , NI NTX ) 
CALL  GAUSS(P,WP,24,PEL,NI NTP ) 
IF  ( IN(25) . EO. 1 )  CALL  TMAT 
DO  10  1=1,20 
DO  10  J= 1 , 20 
10  E2K( J , I ) =0 .DO 
DO  20  1=1 , 1540 
20  E3K( I ) =0 . DO 
DO  30  1  =  1 ,8855 
30  E4K ( I ) =0 . DO 

C=E*TH/( 1 . DO-RNU*RNU ) 
D=C*TH*TH/ 1 2 .DO 
RNU 1 = ( 1 . DO-RNU ) /2 . DO 
RNU 2  =  RNU 1 +RNU 1 
RNU4=RNU2+RNU2 
RNU4D3=RNU4/3 .DO 

DO  1 10  I NX  = 1 , NI NTX 
DO  110  I NP  = 1 , N I NTP 
CALL  SAL F ( X ( INX) , P( INP) ) 

CALL  STH(X( INX) , P( INP) ) 

DO  40  1=1,20 
T 1 ( I ) =BX 1 ( I ) +RNU+BP2 ( I ) 

40  T2( I ) =BP2( I )+RNU*BX1 ( I ) 


STIFFNESS  MATRIX  OF  SECOND  ORDER 

WXWPR=WX ( INX)*WP( INP) *R 
W2C=WXWPR*C 
W2D  =  WXWPR  *D 
DO  50  1=1,20 
DO  50  <J=  I  ,  20 
50  E2K ( I , J)=E2K( I , J)+ 

1  W2C  * ( BX 1 ( I ) *T 1 ( J)+BP2( I )*T2(J)+RNU1*TPXF( I ) *TPXF ( J  )  )  + 

2  W2D* ( AXF( I )*(AXF(J)+RNU*APF ( J ) ) +APF ( I ) * ( APF ( J )+RNU* AXF ( J ) )  + 

3  RNU4*APXF ( I )*APXF( J) ) 

IF  ( IN( 12) . EO.O)  GOTO  1 10 


PRECALCULATIONS  FOR  NONLINEAR  TERMS 

CALL  BXP(X( INX) , P( INP) ) 

DO  70  1=1,20 
DO  60  J= 1 , 20 
BX 1 2 ( I , J ) =BX 1(1) *BX 1 ( J ) 

BX22 ( I , J) =BX2( I ) *BX2 ( J ) 

BX32 ( I , J)=BX3( I )*BX3( J) 

BP  1 2 ( I . J)=EP 1(1) *BP 1 ( J) 

BP22 ( I . J)=BP2( I ) *BP2 ( U ) 

BP32 ( I , J ) =BP3 ( I ) *BP3 ( J ) 

BXX ( I , U) =BX 1 2 ( I , J ) +BX22 ( I , J)+BX32( I , J ) 
BPP(I,J)=BP12(I,J)+BP22(I,J)+BP32(I,J) 

BXP2(  I  ,J)=BX1  (  I)*BP1(«J)+BX2(  I  )JtBP2(U)+BX3(  I  )*BP3(J) 
BXNBP ( I , U ) =BXX ( I , J ) +RNU*BPP ( I , J ) 

BPNBX (I , J)=BPP(I , U)+RNU*BXX( I , J ) 

60  CONTINUE 
70  CONTINUE 

DO  80  1=1,19 
I  1  =  1+1 

DO  80  J=I 1 , 20 

80  BXP2 ( I ,U)=(BXP2( I , J ) +BXP2 ( J , I ) ) / 2 . DO 


- 


■ 


1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

161  1 

1612 

1613 

16  14 

1615 

1616 

1617 

1618 

16  19 

1620 

162  1 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

164  1 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

165  1 

1652 

1653 

1654 

1655 

1656 


non  non 
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STIFFNESS  MATRIX  OF  THIRD  ORDER 
W3=W2C 

W4=W2C* 1 . 5D0 
N=0 

DO  90  1=1,20 
N  =  N+  1 

E3K(N)=E3K(N)+W3*3. DO* ( BX 1 ( I )* BXNBP ( I , I ) +BP2 ( I )*BPNBX( I , I )+ 

1  RNU2*(TPXF( I ) *BXP2( I , I ) ) ) 

IF  ( I . EO. 20)  GOTO  90 
I  1  =  1+1 

DO  90  J  =  I  1 , 20 
N  =  N+  1 

E3K(N)=E3K(N)+W3*(2.DO*BX1( I ) *BXNBP( I , J)+BX 1 (d)*BXNBP( I , I ) + 

1  2 . D0*BP2 ( I ) *BPNBX ( I , J ) +BP2 ( J ) * BPNBX ( I , I ) + 

2  RNU2 * ( TPX F ( I)*BXP2(I,J)*2. DO+TPXF ( J ) +BXP2 ( I . I ) ) ) 

N  =  N+  1 

E3K(N)=E3K(N)+W3*(2 . DO*BX 1 ( d ) *BXNBP ( I , 0 ) +BX 1 ( I )* BXNBP ( J , J ) + 

1  2  .D0*BP2(d)*BPNBX(  I  ,  d)+BP2(  I  )  *BPNBX  (  J  ,  J  )  + 

2  RNU2* (TPXF(J)*BXP2( I , J ) *  2 . DO+TPXF ( I  )  *BXP2 ( d , d ) ) ) 

IF  (J.E0.20)  GOTO  90 

J1=J+1 

DO  90  K  =  J  1 ,20 
N  =  N+  1 

E3K(N)=E3K(N)+W3* 

1  ( BX 1 ( I ) *BXNBP ( J , K ) +BX 1 ( d)*BXNBP( I , K ) +BX 1 ( K ) *BXNBP ( I . J) 

2  +BP2 ( I ) *BPNBX ( J , K)+BP2( J) *6PNBX ( I . K ) +BP2 ( K ) *6PNBX ( 1.0)+ 

3  RNU2* ( TPXF ( I ) *BXP2 ( d , K ) +TPXF ( d ) +BXP2 ( I , K j+TPXF ( K ) +BXP2 ( I , d ) ) ) 
90  CONTINUE 

STIFFNESS  MATRIX  OF  FOURTH  ORDER 


N=0 

DO  100  1=1.20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*(BXX( I , I )* BXNBP ( I . I )+BPP( I , I )*BPNBX( I , I ) + 

1  RNU4*BXP2( I . I ) *BXP2( I , I  )  ) 

IF  (I . EO • 20 )  GOTO  100 
I  1  =  1+1 

DO  100  d=I 1 , 20 
N  =  N+  1 

E4K(N)=E4K(N)+W4*( (BXX( I , I ) *BXNBP( I ,U)+BPP( I . I ) *BPNBX( I , J)+ 

1  BXX ( I , U) *BXNBP( I , I ) +BPP ( I , U ) *BPNBX ( I . I ) ) / 2 . D0+ 

2  RNU4*BXP2( I , I ) *BXP2( I , d) ) 

N  =  N+  1 

E4K(N)=E4K(N)+W4*( ( BXX ( I , I ) * BXNBP ( J . J ) +BPP ( I . I ) *BPNBX ( J , J ) + 

1  BXX ( J , J ) *BXNBP ( I , I ) +BPP ( J , J ) *BPNBX ( I , I ) + 

2  ( BXX ( I , J) *BXNBP( I , J ) +BPP ( I , d) *BPNBX( I , d ) ) * 4 . DO) /6 . D0+ 

3  RNU4D3*  (BXP2(  I  ,  I  ) +BXP2(d,  d)+BXP2(  I  ,  d  ) ’‘BXP21  I  ,  d)  *2  DO)) 

N  =  N+  1 

E4K(N)=E4K(N)+W4*( (BXX( I , d) * BXNBP ( d, d ) +BPP ( I  . d) *BPNBX( d . d  )  + 

1  BXX(d,d)*BXNBP(I , d)+BPP( d , d) *BPNBX ( I , d) )/2 . D0+ 

2  RNU4  *BXP2 (I,d)*BXP2(d,d)) 

IF  ( d . EQ . 20 )  GOTO  100 
d1=d+1 

DO  100  K  =  d 1 , 20 
N  =  N+  1 

E4K(N) =E4K(N)+W4*( ( BXX( 1,1) *BXNBP ( d , K ) +BPP ( I , I )*BPNBX( d . K)+ 

1  BXX(d,K)*BXNBP( I , I ) +BPP ( d , K ) *BPNBX ( I , I ) + 

2  ( BXX ( I , d) *BXNBP( I . K ) +BPP ( I , d) *BPNBX( I , K ) + 

3  BXX ( I , K ) *BXNBP ( I , d ) +BPP ( I , K ) *BPNBX ( I,d))*2.D0)/6 . D0+ 

4  RNU4D3* ( BXP2 ( I,I)*BXP2(d.K)+BXP2(I,d)*BXP2(I,K)*2.D0)) 

N  =  N+  1 

E4K(N)=E4K(N)+W4*( ( (BXX( I , d ) * BXNBP ( d , K ) +BPP ( I , d) *BPNBX(d,K)+ 

1  BXX(d,K)*BXNBP( I , d)+BPP(d,K) *BPNBX( I , d ) ) *  2 . D0+ 

2  BXX (I ,K)*BXNBP(d, d ) +BPP ( I , K ) *BPNBX ( d , d ) + 

3  BXX ( d , d) *BXNBP( I , K )+BPP( d , d ) *BPNBX( I , K ) ) / 6 . D0+ 

4  RNU4D3*(BXP2(d,d)*BXP2(  I  ,  K ) +BXP2  (  I  ,  d  )  *  BXP2  (.  d  .  K  )  *2  .  DO)  ) 

N  =  N+  1 

E4K(  N) =E4K( N)  +  W4* ( (BXX( I , d ) * BXNBP ( K , K ) +BPP ( I , d ) *  BPNBX ( K . K )  + 

1  BXX ( K , K ) *BXNBP ( I ,d)+BPP(K,K)*BPNBX( I ,d)+ 


' 


. 

■ 


1657 

1658 

1659 

1660 

166  1 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

167  1 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

168  1 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

169  1 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1  701 

1702 

1  703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

17  12 

17  13 

17  14 

17  15 

17  16 

1717 

1718 

1719 

1720 

172  1 

1722 

1723 

1724 

1725 

1726 

1727 

1728 
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2  ( BXX  (  I  , K)*BXNBP(  J,K)+BPP(  I  ,K)*BPNBX(U,K)+ 

3  BXX(U,K)*BXNBP( I , K ) +BPP ( U , K ) *BPNBX ( I , K ) ) *2 . D0)/6 . D0+ 

4  RNU4D3* (BXP2 ( I,U)*BXP2(K.K)+BXP2U,K)*BXP2(J,K)*2.DO)) 

IF  (K.EQ.20)  GOTO  100 
K 1 =K+ 1 

DO  100  L  =  K 1 ,20 
N=N+  1 

E4K(N)=E4K(N)+W4*(  (  BXX  ( I  ,  d)*BXNBP(K,  L  )  -*-BPP  (  I  ,  J )  “BPNBX  (  K  ,  L  )  + 

1  BXX(  I  ,  K  )  *BXNBP(  U,L)+BPP(  I  ,  K )  *BPNBX(  U  ,  L  )  + 

2  BXX (I ,L)*BXNBP(U,K)+BPP( I , L ) *BPNBX{ J , K )+ 

3  BXX ( U , K ) *BXNBP ( I , L ) +BPP ( 0 , K ) *BPNBX ( I , L)+ 

4  BXX ( J , L ) *BXNBP ( I,K)+BPP(J,L) *BPNBX( I , K ) + 

5  BXX ( K , L ) *BXNBP( I , J ) +BPP ( K , L ) “BPNBX ( I , J ) ) / 6 . D0+ 

6  RNU4D3* ( BXP2 ( I ,J)*BXP2(K,L)+BXP2(I,K)*BXP2(J,L)+ 

7  BXP2 ( I , L ) *BXP2 ( J , K ) ) ) 

100  CONTINUE 

STORAGE  OF  STIFFNESS  MATRICES 

1 10  CONTINUE 

WRITE (11)  E2K 
IF  ( IN( 12) . EO.O)  GOTO  120 
WRITE(II)  E3K.E4K 
120  IF  ( I N ( 25 ) .EQ. 1 )  STOP 
REWIND  11 
RETURN 
END 

SUBROUTINE  NONEND ( P , D 1 , D2 ) 

C 

C  COMPUTATION  OF  NONLINEAR  BOUNDARY  CONDITIONS 

C  FOR  RIGID  CYLINDER  ENDS 

C 

IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  /I BC ( 2 ) , I NR . IN ( 50) , I S , IT . IXCH . LCH , NB AND , NEC , 

1  NEL , NI NTP , NI NT  S.NINTX.NL. NMAX , NN , NNC , NN5 , NPD , NX , NX  1  , NP , NP 1  . 

2  N2P , N2X , NX 2 

COMMON  /  PART  /B E T A , B ET A 2 , CB E T A , C ED , DB . D EG , D E LT A , D E L T AT , E , ED . 

1  EN,E2,FLEX,PEL.PEL2,PI,R.RL,RM. RN , RNU , RNU 1 ,PREC,TH,XEL,TIME, 

2  DUMMY (5) , DONM 
DIMENSION  P ( NN5 ) 

C 

DO  10  1=1 , NN5 
10  P ( I ) =0 . DO 

IF  (IS.E0.1  .AND.  IT.EQ.-1)  BETA2=0.D0 
BETA  1  =BET  A2 
BETA2=BETA 1+D2 
PHI =0. DO 

C2 1 =DCOS ( BETA  1 ) -DCOS ( BET A2 ) 

S21=DSIN(BETA2)-DSIN(BETA1) 

DON  1 =D0NM*D2 

D0N2  =  DONM* (DSIN(BETA2)*BETA2-DSIN(BETA1 ) “BETA  1  ) 

K=NN5-NNC*5 
DO  20  1=1 , NNC 
L  =  ( 1-1  )*5 
DC=DCOS ( PHI ) 

DS=DSIN( PHI ) 

P(L+1 )=D1-R*DC“S21+D0N2“DS'DS 
P ( L+2 ) =R*C2 1 »DS*DC+D0N1 *DS 
P(L+3)=-R*C21*DC*DC 
P ( L+4 ) =S2 1 *DC 

P( L+5)=C2 1 *DS*DC-D0N1 *DS/R 
IF  ( IN( 1 ) . EO. 1 )  GOTO  20 
LK=L+K 

P( LK+ 1 ) =-P( L+  1  ) 

P(LK+2)=P(L+2) 

P ( LK+3 ) =P( L+3 ) 

P(LK+4)=-P(L+4) 

P ( LK+5 ) =P ( L+5) 

20  PHI =PHI +PEL2 
RETURN 
END 

SUBROUTINE  NORMD ( DNORM , IX) 


■ 


' 


■ 


1729 

1730 

1731 
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1765 
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1767 

1768 
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1771 
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1774 

1775 
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1777 

1778 
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1782 
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1786 

1787 

1788 

1789 

1790 

1  79  1 

1792 

1793 

1794 
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c 

C  CALCULATION  OF  THE  NORMALIZED  DETERMINANT  OF  A  TRIANGULAR 

C  STIFFNESS  MATRIX  WITH  VALUES  OF  1  FOR  ALL  NONZERO  TERMS 

C 

REAL  *8  DNORM 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR . I N ( 50 ) , I S . I T . I XCH . LCH , NB AND . NEC , 

1  NEL , NINTP , NINTS , NINTX , NL . NMAX , NN , NNC , NN5 , NPD , NX . NX  1 . NP , NP 1 , 

2  N2P.N2X.NX2 
DIMENSION  I X ( NN5 ) 

C 

IF  (NX . EQ. 1 . AND . NP . EO . 1 )  X=AL0G10(2.) 

IF  (NX.EO. 1 . AND.NP.GE .2)  X = ALOG 10( 1 6 . ) + ( NP- 2 ) * ALOG 1 0( 6 . ) 

IF  (NX . GE . 2. AND .NP .EQ. 1)  X=ALOG 10(80. )+FL0AT(NX-2)*AL0G10( 108. ) 

IF  (NX.GE .2. AND .NP.EQ.2)  X=AL0G10(17472.)+FL0AT(NX-2)+AL0G 10(334 4. ) 
IF (NX .GE . 2 . AND.NP.GE .3)  X= ALOG 10( 2056320 . ) + FLOAT ( NX -2 ) * 

1  ALOG 10(85008 . ) +FLO AT ( NP-3 ) * ALOG 1 0( 114. )+FL0AT((NX-2)*(NP-3))* 

2  ALOG 10(25 . ) 

DNORM=X 
NMAX=0 

DO  10  1=1, NN5 

10  IF  (IX(I).EQ.I)  NMAX=NMAX+ 1 
RETURN 
END 

SUBROUTINE  OVAL(H,OD) 

ADDING  DISPLACEMENTS  TO  CYLINDRICAL  ENDS  TO  OBTAIN 
DEFORMATIONS  EQUIVALENT  TO  THE  MID-LENGTH  OF  CYLINDER 

IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) , I S . I T , I XCH , LCH , NB AND , NEC , 

1  NEL, NINTP .NINTS, NINTX.NL. NMAX, NN, NNC. NN5, NPD, NX. NX  1 , NP.NP1 , 

2  I  START , I  HALF , NEXT  I T . LCAUSE . NEXT  I S . NE XTOV . ITOVAL 
COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB . DEG , DELTA . DELT AT , E , ED , 

1  EN,E2,FLEX,PEL,PEL2,PI,R.RL, RM , RN , RNU , DNORM , PR EC , TH . XEL , T I  ME , 

2  XD , REDUCE , FLOAD , FSTEP 
DIMENSION  H( NN5 ) , OD ( NN5 ) 

IT0VAL=IT0VAL+1 
DELTA=0 . DO 

WB= ( OD ( NN5-2 ) -OD ( NN5-NP  *  5- 2 ) )/2 . DO 
SB=DSIN(BETA2) 

CBM= 1 . DO- D COS ( BETA2 ) 

PHI =0 . DO 
K=NN5-NNC*5 

DO  10  1=1 , NNC 
L  =  ( I -  1 ) *5 
DS=DS I N( PHI ) 

DC=DCOS( PHI ) 

VM=OD( L+K+2 ) 

WM=OD( L+K+3) 

VS  =  VM- WB  *DS 
WS=WM+WB*DC 
S2=-WS*DC+VS*DS 
S3=DC*R-S2 
S4=S3*CBM 

H( L+ 1 )=-S3*SB+DELTA-DELTAT/2 .DO-OD( L+ 1 ) 

H(L+2)=VS+S4*DS-0D(L+2) 

H(L+3)=WS-S4*DC-0D(L+3) 

H ( L+4 ) =0 . DO 

H(L+5)=(DC*CBM*(R*DS+WS*DS+VS*DC) -VM)/R-0D( L+5 ) 

PHI =PHI +PEL2 
10  CONTINUE 
I  A  =  L  +  6 

DO  20  I  =  I  A , NN5 
H( I ) =0 . DO 
20  CONTINUE 
C 

NEXT0V=O 

RETURN 

END 

SUBROUTINE  PRTMAT ( A , I  1 , I S , US , NR , NC , ANAME ) 


* 
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REAL  *8  A ( I  1  ,NC) , ANAME 

dMAX=dS+NC- 1 
I E  =  I S+NR -  1 
ddS=dS 
JJE  =  JS  +  7 

10  IF  ( ddE . GT . dMAX )  ddE=dMAX 
WR I T  E ( 8 , 20 )  ANAME 

20  F0RMAT( ' 1 20X , 'MATRIX  ',A8,//) 

WR I TE ( 8 , 30) 

30  FORMAT (  '  *  COLUMN',/,'  *') 

WR I T  E ( 8 , 40 )  ( d , d  =  ddS , ddE ) 

40  FORMAT (  '  ROW  *  '  , 8 ( 6X , I  3 , 6X ) ) 

WR I TE ( 8 , 50) 

50  F0RMAT(7X,  ,/,8X,  ,/) 

DO  60  I=IS, IE 

60  WRITE(8,70)  ( I , ( A ( I , d) . d=ddS , ddE ) ) 

70  F0RMAT(2X, I  3 , 6X , 8 E 1 5 . 7 ) 

IF  (ddE .GE .dMAX)  GOTO  80 
ddS=ddS+8 
ddE=ddE+8 
GOTO  10 
80  CONTINUE 
RETURN 
END 

SUBROUTINE  RST ART ( OKT , P , OD , NOE L , OF , I X , DV . I  V , I H , VL , NPL ,  I XNEW ) 
STORING  AND  READING  OF  DATA  FOR  RESTART 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  EIK  /E2K( 20, 20) , E3K( 1540) , E4K(8855) 

COMMON  /  WHOLE  / I BC ( 2 ) , I  NR , I N ( 50 ) , I S . I T . I XCH , LCH . NB AND . NEC , 

1  NEL , NINTP , NINTS , NINTX , NL , NMAX , NN , NNC , NN5 , NPD , NX , NX  1 , NP , NP 1 , 

2  I  ST ART, I HALF , NEXT I T , LCAUSE , NEXT  I S . NEXTOV , ITOVAL, ITOVIT.NOVA, 

3  NCONV 

COMMON  /  PART  /B E T A , B E T A2 , CB E T A , C ED , DB , D EG , D E L T A . DE L T AT , E , E D , 

1  EN.E2, FLEX, PEL, PEL2,PI,R,RL,RM, RN , RNU , DNORM . PR EC , TH,XEL,TIME, 

2  XD , REDUCE , FLOAD , FSTEP , FDELTA , DONM.XDN 
COMMON  /  TMINUS/  T(20,20) 

DIMENSION  OKT ( NBAND , NN5 ) ,P(NN5) , 0D(NN5) .NOEL (4, NEL) ,0F(NN5) , 

1  I  X ( NN5 ) ,DV( 53) , I  V ( NN5 ) , IH(NN5 )  , VL ( NL )  , NPL ( NL ) , I XNEW( NL ) 

CALL  GTCPL ( TMNEW ) 

IF  ( I  ST  ART . EO . 3 )  GOTO  20 
IF  ( ISTART . EQ. 1 )  GOTO  40 
IF  ( I N ( 23 ) . NE . 1 )  RETURN 
TMMIN= ( TIME -TMNEW) *  1  .  1D0+10.D0 
WR I T E ( 7  ,  10)  TMNEW, TMMIN 

10  FORMAT ( // '  REMAINING  CPU-TIME  =',F8.3/'  REQUIRED  CPU-TIME  =', 
1  F8 . 3) 

LCAUSE=  1 

IF  (TMNEW.LT .TMMIN)  GOTO  30 

TIME  =TMNEW 

RETURN 

STORING  OF  RESTART  VARIABLES 

20  IF  (LCAUSE . EO . 3 )  GOTO  30 
LCAUSE=2 
30  REWIND  13 

RE  AD (  13)  IV, IH 
REWIND  10 

WRITE( 10)  IBC , INR , IN, IS , IT , I XCH , LCH , NBAND , NEC , NEL , NEXT  I T , 

1  LCAUSE , NINTP , NINTS , NINTX , NL , NMAX , NN, NNC , NN5 , NPD , NX , NX  1  , NP , 

2  NP1 , I HALF , NEXT  IS , NEXTOV, ITOVAL , ITOVIT.NOVA 

WRITE (10)  BETA, BETA2.CB ETA, CED.DB, DEG, DELTA, DELTAT.E, ED. 

1  EN,E2,FLEX,PEL,PEL2,PI ,R,RL , RM , RN , RNU , DNORM , PR EC . TH, XEL . 

2  REDUCE , FLOAD , FSTEP, FDELTA, DONM , XDN , NCONV , 

3  T.OD.NOEL , IX , IV, IH, P ,0F ,DV, PREC, TIME ,XD, VL , NPL , I XNEW 
IF  (IN( 14) .NE .2)  WRITE(IO)  OKT 

STOP 
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READING  OF  RESTART  VARIABLES 

40  READ(IO)  BETA, BETA2 . CBETA , CED . DB , DEG, DELTA, DELTAT, E. ED, 

1  EN, E2, FLEX, PEL ,PEL2, PI ,R,RL . RM , RN , RNU , DNORM , PREC , TH , XEL . 

2  REDUCE , FLOAD , FSTEP , FDELTA , DONM , XDN , NCONV , 

3  T , OD , NOEL , IX, IV. IH, P , OF ,DV, PR EC, TIME . XD , VL ,NPL , IXNEW 
READ(II)  E2K 

READ( 1 1 )  E3K.E4K 

IF  ( IN( 14 ) . NE . 2)  READ( 10)  OKT 

REWIND  13 

WR I T  E (  13)  IV, ( IH( I ) , 1= 1 ,NN5) 

REWIND  12 
WR I TE (  12)  OD 
TIME=TMNEW 

CALL  MAINR(OKT,P,OD, NOEL , OF , I  X , DV , I  V , VL , NPL , I XNEW ) 

STOP 

END 

SUBROUTINE  SALF(X,P) 

COEFFICIENTS  KAPPA  FOR  (LINEAR)  OUT-OF-PLANE  STRAINS 

IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  TMI NUS/T ( 20 ,20) 

COMMON  /  PART  /BETA . BETA2 . CBETA , CED , DB . DEG , DELTA , DELTAT , E , ED , 
1  EN,E2,FLEX,PEL,PEL2,PI , R . RL , RM , RN , RNU . RNU 1 , S I GMA , TH , XE L , T I  ME 
COMMON  /  AF  / AXF ( 20 ) ,APF(20) ,APXF(20) 

SDR=DSIN(P)/R 
XP=X*P 
XDR=X/R 
XX=XDR*X/2 . DO 
RP=R*P 

R2P=RP*P/2 .DO 
DO  10  1=1,20 

AX  F ( I ) =T ( 8 , I ) *SDR+T( 12 , I )+T(  13, I ) *X  +  T(  14 , I ) *P+T( 15, I )*XP 
APF(I )=T( 16, I )+T( 17, I ) *X+T( 18, I ) *P+T( 19. I )*XP 
10  APXF(I)=T(  14,I)*XDR+T(  15,1 )  *XX  +  T(  17 , I ) *RP  +  T(  1 9 , I ) *R2P  +  T ( 20, I ) 
RETURN 
END 

SUBROUTINE  SHORT ( DV , DELTA , DELTAT , IS) 

ESTIMATE  OF  SHORTAGE  OF  CYLINDER  FOR  NEXT  LOAD  STEP 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  D V ( 53 ) 

IF  (IS.GT.2. )  GOTO  30 
IF  (IS.E0.2)  GOTO  10 
DV ( 2 ) =DELT  AT 
DV ( 3 ) =0 . DO 
DV ( 4 ) =DELT  AT 
DV(5)=DELTAT*4 . DO 
GOTO  40 

10  D V (  1  )  =DELT AT 
DV ( 5 ) =DELT  AT 

20  DV ( 6 ) =6 . DO* DV (  1 ) -  1 5 . DO*DV ( 2 ) 

GOTO  40 

30  DV( IS+3) =DELTAT 

DV ( I S  +  4 ) = -D V ( I S-2 ) +6 . DO*DV ( I S -  1 )-15.D0+DV( I S )  +  20 . DO* DV ( I S  + 1 ) - 

1  1 5 . DO*DV ( I S+2 ) +6 . DO*DV ( IS+3) 

40  DELTA= ( DV ( IS+3)-DV( I S+4) )/2 .DO 
RETURN 
END 

SUBROUTINE  SOLVE (OKT , P , I  V , OD , NOEL , I  X , DV , OF , VL , NPL , IXNEW) 
SOLVING  OF  "K  *  V  =  P"  AND  ITERATION  CONTROL 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  EIK  /E2K(20, 20) . E3K( 1540) , E4K(8855) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) , I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL , NINTP , NINTS , NINTX , NL . NMAX , NN , NNC , NN5 , NPD , NX , NX  1 , NP , NP 1 , 
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IHALF .NEXTIT , LCAUSE . NEXT  I S , NEXTOV , ITOVAL . ITOVIT ,NOVA 


E  ,  ED, 
TIME  , 


2  ISTART 

3  NCONV 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB , DEG . DELTA . DEL  TAT 

1  EN,E2,FLEX,PEL,PEL2,PI ,R,RL,RM,RN, RNU , DNORM ,PREC.TH,XEL 

2  XD, REDUCE , FLOAD , FSTEP . FDELTA , DONM , XDN 

DIMENSION  OKT ( NB AND , NN5 ) ,P(NN5) , IV(NN5) . ID (605) ,IF(4),DV(53) 

1  OD ( NN5 ) , NOEL ( 4 , NEL ) ,0F(NN5) , IX(NN5) , IH(605) . VL ( NL ) .NPL(NL) , 

2  IXNEW(NL) 

LOGICAL  SUCCES 


NE  XT  I S=  1 


IF 

(IS.LE. 

0)  NEXTIS=0 

IF 

(LCAUSE 

-EQ.2) 

GOTO 

470 

IF 

(LCAUSE 

- EQ. 3) 

GOTO 

260 

IF 

(  ISTART 

.EQ.  1) 

GOTO 

470 

IF 

(  I N  (  9  )  . 

EQ.  1  ) 

WRITE 

(7. 

10  FORMAT ( '  '///10X , 

1  /( 17 , E 14 . 6)  ) 

DO  20  1=1 , NN5 
20  OF ( I ) =P ( I ) 

NEXT  I T=  1 
N0VA=O 
NEXT0V=O 
IT0VAL=O 
IT0VIT=O 
IF  ( IS . EO. -  1 ) 
PREC=0 . ID- 15 
DEG=BETA2*57 . 
RMO=RM 
DELTA=0 . DO 


( I , P ( I ) , I = 1 , NN5 ) 
LOAD  VECTOR '//5X, 'NR .  (MM 


OR  ANGLE ) '/ 


NEXTIT  =0 


2957977509D0 


EQUILIBRIUM  ITERATIONS 


30  I T  =  I T+ 1 
RNO=RN 

TLOAD=CBETA*FLOAD 

CSTEP=CBETA*FSTEP 

WRITE (7, 40)  IS, IT , TLOAD , CSTEP , IHALF 
40  FORMAT ( // '  ',60(  '**')/'  LOAD  STEP  = 

1  '  CURRANT  LOAD  FACTOR  =',F9.6,'  OF 

2  '  CURRANT  STEP  SIZE  =',F9.6/, 

3  '  REFINEMENT^ ,13/, '  ROTATION  =', 
IF  (NOVA . EQ.O)  GOTO  60 

IF  (NEXTOV. EQ. 1 )  ITPLUS=ITOVAL+ 1 
IF  (NEXTOV . EQ . 1 )  IT0VIT=0 
IF  (NEXTOV. EQ.O)  I TOVI T= I TOVI T+ 1 
WR I T  E ( 7 , 50)  ITPLUS , ITOVIT 
50  FORMAT ( '  OVAL  I ZAT I  ON  STEP', 13, 


,  DEG 

'  ,  13/,  '  ITERATION  = ' 
CLASSICAL  BUCKLING 

E  14 . 6 ,  '  DEGREES'  ) 


,13/, 
LOAD ' , / 


EQUILIBRIUM  I T ER AT  I  ON '  ,  I  3 ) 


STIFFNESS  MATRIX,  LOAD  VECTOR,  AND  DISPLACEMENT  VECTOR 


60 


70 


D 1 =COST ( 0) 

WR I TE ( 7 , 70)  D 1 

FORMAT ( / '  BEFORE  ASOKT : 

IF  (IT. EQ.O)  GOTO  120 


F7 . 2) 


80 

90 

100 


1  10 
120 


IF  ( IN( 14) . EQ . 0 
CALL  ASOKT ( NOEL 
PREC=0 . 10-15 
DAS=COST ( 0 ) 

WR I TE ( 7 , 80 )  DAS 
FORMAT ( '  AFTER  ASOKT 
GOTO  100 
IF  ( IN( 13) ,NE . 2 


. OR .  ( I N ( 14) 

OD , OKT , IX) 


EQ . 1 . AND . IT . GT . 1 ) )  GOTO  90 


F  7 . 2  ) 


AND.  NOVA . EQ 
I V  ,  P , OKT , VL , NPL 


O)  GOTO  120 
IXNEW.OD) 


CALL  LO ADS (  IX 
PREC  =  0 .  ID-  15 
DO  110  1=1, NN5 
0F( I )=0F( I )+P( I  ) 

IF  (LCH.GT.O)  CALL  L0ADS2 ( VL . OF , NPL . 
CALL  VBSOLV ( NBAND- 1 , NN5 , PR EC , NN5 , OF . 
IV, .TRUE . .SUCCES) 

IF  ( I N( 8  ) .GE.2)  CALL  PRTMAT ( OKT , NBAND 
IF  ( .NOT . SUCCES)  CALL  ERROR ( 9 , I S , I T ) 


IXNEW, 1 ) 

OKT , ID , NBAND . 


DET . IEXDET 


1,1, NBAND  ,  NN5  ,  ' L=OKT/LT '  ) 
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DVB=C0ST (0) 

IF  ( PREC . LT . 0. DO)  GOTO  210 

OUTPUT  OF  THE  DETERMINANT  AND  ITS  RELATIVE  CONDITION 

KK=IDINT(DL0G10(DFL0AT( IABS( IEXDET) ) ) )+1 
WR I T  E ( 9 ,  130)  KK 

130  FORMAT ( 1 3H (  1H+ , 32X ,1,12, ' ) ' ) 

REWIND  9 

R  E AD ( 9 , 140)  IF(1),IF(2),IF(3),IF(4) 

140  FORMAT ( 4A4 ) 

WR ITE ( 7 , 150)  DVB.DET 
150  FORMAT ( '  AFTER  VBSOL V : ' , F7 . 2// 

1  '  DETERMINANT  =',F10.6,'  *  10  **') 

WR I T E ( 7  ,  I  F  )  IEXDET 

IF  ( IN( 22 ) . EO . 1 )  CALL  TEST ( OKT , DET , I EXDET , DNORM ) 

I NN5=NN5 
DO  160  1=1 , NN5 
160  I NN5= I NN5- I D ( I  ) 

IF  (INN5.EQ.0)  GOTO  200 
WR I TE ( 7 , 170) 

170  FORMAT ( '  NEGATIVE  DIAGONAL  ELEMENTS  IN  FOLLOWING  ROWS:'/) 
DO  190  1=1, NN5 

IF  (ID(I).EO.-I)  WR I T  E ( 7 ,  1 80 )  I 
180  FORMAT ( '  ' , 14 ) 

190  CONTINUE 
GOTO  250 

200  PREC=-0. ID- 15 

CHECK  OF  CONVERGENCE  OF  DISPLACEMENTS 

210  DO  220  1=1 , NN5 
220  OD ( I ) =0D ( I ) +0F ( I  ) 

IF  ( IS . EO. -  1 )  GOTO  310 
XDN=0. DO 
DO  230  1= 1 , NN5 
A  =  0  F  (  I  ) 

230  XDN=XDN+OF( I )*A 
XDN=DSQRT (XDN) 

WR I TE ( 7 , 240)  XDN 

240  FORMAT ( / '  DISPLACEMENT  NORM:  '.Eli. 4) 

IF  (IT.EO.O)  XD=XDN 

IF  (XDN.LE.XD*1. 00  IDO)  GOTO  280 

IF  ( IN( 28 ) . EO . 0)  CALL  ERROR ( 1 O , I S , I T ) 

250  IF  ( IHALF . LT . IN( 28 ) )  GOTO  270 
LCAUSE=3 
I  ST  ART  =  3 

CALL  RSTART ( OKT ,P,OD,NOEL.OF,IX,DV.IV,IH,VL,NPL.IXNEW) 

260  CONTINUE 
LCAUSE=0 
I  START  =  0 

270  CALL  ITERA ( 3 , DV , OD ) 

RETURN 

280  NC0NV=0 

IF  (XDN.LT.XD*10.D0**IN( 19))  NCONV= 1 
WRITE (7 , 290, END=300)  (OF ( I ) , I = 1 ,NN5) 

290  FORMAT  (  / '  INCREMENTAL  D I SPL ACEMENT S ' / (  1 0E 1 2  4)) 

300  CONTINUE 

EQUILIBRIUM  FORCES,  AXIAL  FORCE  AND  END  MOMENT 

310  IF  ( IN( 16)  . GT .  1 )  CALL  FORCE  1 ( NOEL , OD ) 

IF  ( NCONV . GT . NOVA  .OR.  IS.EQ.-1)  GOTO  380 
IF  ( IN( 13)  . EQ .  1 )  CALL  LONGER ( OD , DELTA  ) 

CALL  EQ( OD , OF , NOEL  ) 

DEQ=COST (0) 

IF  (IN( 16) .EQ. 1)  CALL  F0RCE2 (OF , OD ) 

WRITE ( 7 , 320)  DEQ 
320  FORMAT ( / '  AFTER  EQ:',F11.2) 

I = I N ( 27 ) 

IF  (I.GT.O)  WRITE ( 7 , 330)  I.OF(I) 
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330  FORMAT ( / '  INTERNAL  FORCE  NR. ',14,'  =',E14.6) 

IF  ( IN( 2 1 ) . EQ . 1 )  WRITE ( 7 , 340)  ( OF ( I ) , I = 1 , NN5 ) 

340  FORMAT ( / '  (NEGATIVE)  INTERNAL  FORCES ' / ( 10E 1 2 . 4 ) ) 

DO  350  1=1, NN5 

350  IF(IX(I).NE.1)  OF ( I ) =0 . DO 
X0F=O. DO 
DO  360  1=1, NN5 
360  XOF=XOF+OF( I )*0F ( I ) 

XOF=DSORT( XOF ) 

WRITE(7,370)  XOF 

370  FORMAT ( '  NORM  OF  FREE  EQUILIBRIUM  FORCES  ='.E14.6) 

GOTO  400 

380  DO  390  1=1, NN5 
390  OF ( I ) =0 . DO 

400  IF  (IN(13).EQ.O  .OR.  IT.EQ.O  .OR.  I TOVI T . LT . NOVA )  GOTO  430 
IF  ((IT.GT.1  .AND.  NOVA.EQ.O)  .OR.  IT0VIT.GT.1)  GOTO  410 
GOTO  420 

4  10  FLEX  =  DMAX1 (DMIN1 (DELTA/ (RNO-RN)  , FLEX+0.8D0)  .  FLEX*1  .25DO) 

420  DELTA=FLEX*RN 

430  DELTAT=-OD( 1 ) -0D(NP*5+ 1 ) 

WR I T  E ( 7 , 440 )  RN , RM , DELT  AT 

440  FORMAT ( / '  AXIAL  FORCE  =',E18.10,'  N'/'  MOMENT  ='.E18.10, 

1  '  NMM ' / '  SHORTENING  =',E18.10,'  MM') 

C 

C  CHECK  FOR  MORE  EQUILIBRIUM  OR  OVALIZATION  ITERATIONS, 

C  RESTART,  OR  OUTPUT 

C 

IF  ( I N( 30 ) . EQ . 2  .AND.  NC0NV.EQ.1)  N0VA=1 

IF  ( ( ITOVAL . GE . I N ( 3 )  .AND.  ( ITOVIT . GE . I N ( 4 )  .OR.  NCONV . EQ . 1 ) ) 

1  .OR.  IT . GE . IN(  18 ) )  NOVA  =0 

IF  ((  ( ITOVAL  +  ITOVIT)  . EQ.O. OR . ITOVIT .GE . IN(4)  .OR.  NCONV. EQ  .  1 ) 

1  .AND.  NOVA . EQ . 1 )  NEXTOV= 1 

IF  ( IT.GE . IN( 18)  .OR.  (NCONV. EQ.1.  AND.  NOVA.EQ.O))  NEXTIT=0 
IF  (NEXTIT.GT .NCONV)  GOTO  460 

WRITE  (7,450)  ( I . OD ( I ) , I = 1 , NN5 ) 

450  FORMAT ( '  '/// 10X RESULT-VECTOR ' //5X ,' NR .  ', 

1  '  (MM  OR  ANGLE)  '/,(  IX, 5( 16, E  16.8) ) ) 

IF  ( IN( 32 ) . GT . 0)  CALL  STRESS (NOEL , OD ) 

460  IF  (NEXTIT . EQ . 1 )  GOTO  30 

IF  ( IS . EQ . IN( 17)  .OR.  ( RMO . GT . RM . AND . I N( 20 ) . GT . I HAL F ) 

1  .OR.  ( IHALF . GT .0. AND . IHALF . GE . I N ( 28 ) ) )  NEXTIS=0 
IF  ( IN( 24 ) . EQ . 1  .AND.  NEXTIS.EQ.O)  ISTART=3 

CALL  RSTART ( OKT , P . OD , NOEL , OF . I  X , DV , I  V , I H . VL , NPL , IXNEW) 

470  IF  ( ISTART . EQ .0)  GOTO  480 
I  START  =  0 
LCAUSE  =0 
NEXT I T  =  1 
NEXT  I S=  1 

IF  ( I N( 30 ) . EQ . 2  .AND.  NCONV. EQ.1)  N0VA=1 

IF  (( ITOVAL .GE . IN(3)  .AND.  (ITOVIT  GE.IN(4)  .OR.  NCONV. EQ.1)) 

1  .OR.  IT . GE . IN(  18 ) )  NOVA  =0 

IF  (  (( ITOVAL+ITOVIT) . EQ .0. OR . ITOVIT . GE . IN(4)  .OR.  NCONV. EQ.1) 

1  .AND.  NOVA. EQ.1)  NEXTOV= 1 

IF  ( IT.GE . IN( 18)  .OR.  (NCONV. EQ.1.  AND.  NOVA.EQ.O))  NEXTIT=0 
IF  (NEXTIT. EQ.1)  GOTO  30 

END  OF  EQUILIBRIUM  ITERATION 

480  IF  ( IS . EQ. IN(  17)  .OR.  ( RMO . GT . RM . AND .  I N ( 20 )  . GT  . I HAL F  ) 

1  .OR.  ( IHALF .GT .0 . AND . IHALF . GE . I N ( 28 )) )  NEXTIS=0 
IF  ( IN( 13) .NE .0)  CALL  SHORT ( DV , DELT A , DELT AT , I S ) 

IF  (IN(28).EQ.O)  RETURN 

IF  (INN5.EQ.0  .AND.  XDN.LT.  ( XD* 1 0 . DO*  * ( DF  LO AT ( IN( 19)  )/2 .DO) ) ) 

1  GOTO  490 

CALL  ITERA(2,DV,0D, VL) 

RETURN 

490  CALL  ITERA(  1  ,DV,OD,VL) 

RETURN 
END 

SUBROUTINE  SPARSE ( I  V . I H ) 


. 


216  1 

2  162 

2  163 

2  164 

2  165 

2  166 

2  167 

2  168 

2  169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2  177 

2  178 

2  179 

2180 

2  18  1 

2182 

2  183 

2  184 

2  185 

2  186 

2187 

2188 

2  189 

2  190 

2191 

2  192 

2  193 

2194 

2  195 

2  196 

2197 

2198 

2  199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

22  10 

22  1  1 

2212 

22  13 

2214 

22  15 

22  16 

22  17 

22  18 

22  19 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 


non  o  o  o  o 
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C 

C  COMPUTATION  OF  FIRST  ROW  AND  LAST  COLUMN  UNEQUAL  ZERO  OF 

C  GLOBAL  STIFFNESS  MATRIX 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON  /  WHOLE  / 1 BC ( 2 ) , I  NR , I N ( 50) . I S , I T , I XCH , LCH , NB AND , NEC , 

1  NEL , NINTP , NI NTS , NI NTX , NL . NMAX . NN , NNC , NN5 . NPD , NX . NX  1 , NP . NP 1  , 

2  N2P , N2X , NX2 
DIMENSION  I V( NN5 ) , I H( NN5 ) 

C 

DO  10  1=1 , NB AND 
10  I V ( I )  =  1 

IF  (NP . EQ . 1 )  GOTO  30 
DO  20  1=3. NP1 
15=1*5-9 
K  =  I  5+4 
DO  20  U= 1 . 5 
20  IV(K+U)=I5 
30  I E  =NN- 1 
I A=NP 1 +2 
15=1 

DO  40  1  =  1  A , IE 

15=15+5 

K=I  *5 

DO  40  J= 1 , 5 
40  I  V ( K+ J )  =  I  5 

IF  (NX . EQ . 1 )  GOTO  60 
DO  50  I =2, NX 
I  5  =  ( I  -  1 ) *NP 1*5+ 1 
K= I *NP 1*5 
DO  50  J= 1 , 5 
50  I V( K  +  U )  =  I  5 
60  CONTINUE 

DO  70  1=1 , NN5 
70  I H ( I ) =NN5+ 1  -  I  V ( NN5+ 1  - I ) 

WR I TE ( 13)  IV. IH 
REWIND  13 
RETURN 
END 

SUBROUTINE  STH(X.P) 

COEFFICIENTS  OF  IN-PLANE  STRESS  FUNCTIONS 
IMPLICIT  REAL*8( A-H, 0-Z ) 

COMMON  /  PART  /B E T A , B E T A 2 , CB E T A . C ED . DB . D EG , D E LT A , D E L T AT . E . ED , 
1  EN,E2,FLEX,PEL,PEL2,PI .R.RL.RM.RN, RNU , RNU 1 , SIGMA , TH , X EL . TIME 
COMMON  /  TMINUS/T(20. 20) 

COMMON  /  TF  /TXF(20) ,TPF(20) ,TPXF(20) 

S  =  D  S  I N  (  P  ) 

X2DR=X*X/2 . DO/R 
X2PDR=X2DR*P 
X3DR=X2DR*X/3 . DO 
X3PDR=X3DR*P 
DO  10  1=1,20 
TXF ( I ) =T ( 7 ,  I  )  +T ( 8 .  I  )  *  S 

TPF( I ) =T ( 9 , I )+T(  10, I ) * X — T (  12, I  )*X2DR-T(  13, I  )*X3DR-T(  14,  I  )* 

1  X2PDR-T( 15, I )*X3PDR 
10  TPXF ( I  )=T(  11,1) 

RETURN 
END 

SUBROUTINE  STRESS( NOEL , OD ) 

CALCULATION  OF  STRESS  DISTRIBUTION  ALONG  THE  CIRCUMFERENCE 
IMPLICIT  REAL*8( A-H, 0-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50 ) , I S , I T , I XCH . LCH . NB AND , NEC , 

1  NEL ,NINTP,NINTS, NINTX , NL , NMAX , NN , NNC , NN5 . NPD , NX , NX  1  , NP , NP 1 
COMMON  /  PART  /B E T A , B E T A 2 , CB E T A , CED , DB , D E G , DE LT A , DE LT AT  ,  E  ,  ED  , 
1  EN,E2,FLEX,PEL,PEL2,PI  , R , RL , RM , RN , RNU , RNU 1  , PREC , TH , X EL , T I  ME 
COMMON  /  TF  /BX1 (20) ,BP2(20) ,TPXF(20) 

COMMON  /  BF  /BP3(20) ,BX3(20) , BX2 ( 20) , BP  1 ( 20) 


• 

- 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

224  1 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

225  1 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

226  1 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

227  1 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

228  1 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2  300 

2301 

2302 

2303 

2  304 
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DIMENSION  V(24) ,V2(24) ,N0EL(4,NEL ) ,0D(NN5) 

C 

IF  (IN(33) .LEO)  RETURN 
DP=PI/NP/DFLOAT ( I N ( 33 ) ) 

ENU=EN/TH/R 
X  =  XEL 

C  IF  ( I N ( 32 ) .EQ. 1)  GOTO  2 

C  CALL  GAUSS(V,V2,24,XEL, NINTS ) 

C  X  =  V ( N I  NT  S ) 

C 

10  11=1 
1 2=NP 

WRITE(7 ,20) 

20  FORMAT ( '  '//,'  STRESSES  AT  THE  CYLINDER  END',/) 

GOTO  50 

30  X=-X 

I  1 =NEL -NP+ 1 
I 2=NEL 
WR I TE ( 7 , 40) 

40  FORMAT ( '  STRESSES  AT  THE  CYLINDER  MIDDLE',/) 

50  DO  150  1=11,12 
WRITE ( 7 , 60)  I 

60  FORMAT (  '  '/'  ELEMENT  NR.  ',13. 

1  '  SIGMA  X  SIGMA  PHI  SIGMA  X-PHI  ',/) 

DO  70  0=1,4 
L 1  =  ( 0-  1  )  *5 
L2=( NOEL ( J , I )-1)*5 
DO  70  L  = 1 , 5 
70  V(L1+L)=0D(L2+L) 

S= -PEL -DP 

LINEAR  STRESSES 

1 1 E  =  IN( 33 ) + 1 
DO  140  11  =  1  ,  IIE 
S=S+DP 

CALL  STH(X.S) 

T 1=0. DO 
T2  =0 . DO 
T3=0 . DO 
DO  80  K  = 1 , 20 
W= V ( K ) 

T 1 =T 1 +BX 1 ( K ) * W 
T2=T2+BP2(K) *W 
80  T3=T3+TPXF(K)*W 
BET AX  1 =0 .DO 
BET  AX2  =  0 . DO 
BET  AX3  =  0 . DO 
BET  AP 1 =0 . DO 
BET  AP2=0 . DO 
BET  AP3  =  0 . DO 

IF  ( I N (  15)  . E  0 . 0 )  GOTO  120 

NONLINEAR  STRESS  CONTRIBUTIONS 

CALL  BXP(X.S) 

DO  90  K= 1 , 20 

BETAX3=BETAX3+BX3(K)*V(K) 

90  BETAP3  =  BETAP3+BP3( K) * V ( K ) 

IF  ( I N( 3 1 ) .LT. 1)  GOTO  120 

DO  100  K= 1 , 20 
BETAX2=BETAX2+BX2(K)*V(K) 

100  BETAP1=BETAP1+BP1 (K)*V(K) 

IF  (IN(31).NE.2)  GOTO  120 

BETAX 1 =T 1 
1 10  BET AP2  =  T2 
C 

120  EPSX=T1+( BETAX 1 *BETAX 1 +BET AX2 +BETAX2+BET AX3*BETAX3 ) /2 .DO 


• 
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231  1 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

232  1 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

236  1 
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2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

237  1 

2372 

2373 

2374 

2375 

2376 
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EPSP=T2+(BETAP 1 *BETAP 1 +BETAP2 *BET AP2+BET AP3 *BET AP3 ) /2 . DO 
EPSXP=T3+(BETAP1*BETAX1+BETAP2*BETAX2+BETAP3*BETAX3)/2.DO 
SX  =  ENU* ( EPSX  +  RNU*  EPSP ) 

SP=ENU* ( EPSP+RNU*EPSX ) 

SXP=E*EPSXP/ ( 1 .DO+RNU) 

WR I TE ( 7  ,  1 30 )  S,SX,SP,SXP 
130  FORMAT ( F 1 0 . 6 , '  '.3E14.6) 

140  CONTINUE 
150  CONTINUE 

IF  ( I  1  . EO.  1 )  GOTO  30 

RETURN 

END 

SUBROUTINE  STUFF ( OKT , NBAND , U 1 , INS , EK, I  CO , U3 . NTNODE , I  EL , IX ) 

C 

£******************************************** *************************** 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS  SUBROUTINE  INSERTS  AN  ELEMENT  STIFFNESS  MATRIX  AND  CONSISTENT 
LOAD.  ROWS  AND  COLUMNS  ARE  DELETED  FOR  THE  ZERO  BOUNDARY  CONDITIONS. 


OKT 
EK 
ICO 
I  EL 

NTNODE= 
NBAND  = 
IX 


AN  I1XJ1  MATRIX  CONTAINING  THE  TRANSPOSE  OF  THE  LOWER  HALF 
BAND  OF  THE  STRUCTURE  STIFFNESS  MATRIX. 

AN  12X12  MATRIX  CONTAINING  THE  UPPER  HALF  OF  THE  ELEMENT 
STIFFNESS  MATRIX 

AN  I3XU3  MATRIX  OF  INTEGERS.  THE  (I,J)TH  TERM  CONTAINS 
THE  ITH  NODE  NUMBER  OF  THE  UTH  ELEMENT. 

THE  NUMBER  OF  THE  ELEMENT  BEING  INSERTED 

THE  TOTAL  NUMBER  OF  NODES  IN  THE  ASSEMBLED  STRUCTURE 

(  THE  BANDWIDTH  OF  THE  STRUCTURE  STIFFNESS  MATRIX  ) 

A  VECTOR  CONTAINING  THE  BOUNDARY  CONDITION  INFORMATION 
IX(I)  =  0  DEGREE  OF  FREEDOM  I  SET  EQUAL  TO  ZERO 
I X ( I )  =  1  DEGREE  OF  FREEDOM  I  FREE 


p**************************************************  ********************* 


C 


C 


10 

20 

30 


40 


50 

60 

70 


IMPLICIT  REAL*8( A-H, 0-Z) 

DIMENSION  OKT (NBAND , J 1 ) . EK ( 20 . 20 ) 

DIMENSION  ICO( 4 , J3) , IX ( J1 ) , INS ( NTNODE ) , I ES ( 20) 


IF  ( I  EL  . NE .  1 )  GOTO  20 
DO  10  1=1 .NTNODE 
INS ( I )  =  ( I-  1 ) *5 
DO  30  1=1,4 
I ES (  I  )  =  (  1-1  )*5 
DO  70  JN= 1 , 4 
JUN=ICO( UN, I  EL  ) 

K J= I  NS ( J JN ) 

M J= I E  S ( JN ) 

DO  70  IN  =  JN , 4 
I IN=ICO( IN, I  EL ) 

KI  =  INS( I  IN) 

MI  =  I  ES ( IN) 

DO  70  J= 1 ,5 
JU= J+Md 
J J J= J+KU 

IF  ((IX(JUJ) .EQ.O)  .AND.  (IN.NE.JN))  GOTO  70 
DO  60  1=1.5 
I  I  =  I +MI 
1 1 1  =  I +KI 


JO=I  1 1 


10 

=NBAND- I I 

I+JJJ 

IF 

((III . GE 

.JJJ)  . 

OR  . 

JO 

=  JJJ 

10 

= NBAND- JJJ+I I I 

IF 

(  I X  (  1 1  I  ) 

.EQ.O  . 

OR  . 

IF 

( 10 . GT .NBAND)  GOTO 

OKT ( I 0 , JO ) = 

OKT ( 10, 

JO) 

( IN . EQ. UN) )  GOTO  40 


IX( JUJ) .EQ.O)  GOTO  50 
60 

t-EK  (  U  J  ,  II) 


GOTO  60 

IF  ( III . EQ. 

CONTINUE 

CONTINUE 

RETURN 

END 


UJU)  OKT ( 10. J0)=1 .DO 


. 


. 

■ 

2377 

2378 

2379 

2380 

238  1 

2382 

2383 

2384 

2385 

2386 

2387 

2388 
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2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

24  10 

24  1  1 

2412 

24  13 

24  14 

24  15 

2416 

24  1  7 

24  18 

24  19 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

244  1 

2442 

2443 

2444 

2445 

2446 

2447 

2448 


o  o  o 


151 


SUBROUTINE  TE ST ( OKT , DE T , I EXDET , DNORM ) 

C 

C  THIS  SUBROUTINE  NORMALIZES  THE  DETERMINANT 

C  OF  A  LOWER  TRIANGULAR  MATRIX  BY  DIVIDING  EACH  J-TH  ROW  BY 

C  SQUARE  ROOT  (  SUM  (  A  ,IJ  )  )  ;  1=1, N 

C  AND  MULTIPLICATION  WITH  THE  NORMALIZED  DETERMINANT  OF  A 

C  TRIANGULAR  MATRIX  WITH  ONLY  '1'  VALUES 

C 

C  RELATIVE  CONDITION  =  NMAX  /  NORMALIZED  DETERMINANT 

C 

IMPLICIT  REAL*8( A-H.O-Z) 

COMMON  /  WHOLE  / I BC ( 2 ) , I NR , I N ( 50) , I S , I T , I XCH , LCH , NB AND . NEC , 

1  NEL, NI NT P,NI NTS, NINTX.NL, NMAX , NN , NNC , NN5 , NPD , NX , NX  1 , NP , NP 1 . 

2  N2P.N2X.NX2 
DIMENSION  OKT ( NBAND , NN5 ) 

C 

DO  20  1=1, NN5 
S=0 . DO 

DO  10  J= 1 , NBAND 
SS  =OKT ( J  ,  I  ) 

10  S=S+SS*SS 
DET=DET/S 

K=IDINT(DL0G1O(DABS(DET) ) ) 

DET  =DET/ 1 0 . DO* *K 
20  IEXDET=IEXDET+K 

DEXDET=(DFLOAT( IEXDET)+DL0G10(DABS(DET ) )+DN0RM)/2 . DO 
RC0ND  =  0 .  1  DO*  * (DEXDET/DFLOAT ( NMAX ) ) 

WR I TE ( 7 , 30 )  RCOND 

30  FORMAT ( '  RELATIVE  CONDITION  =',E14.6) 

RETURN 
END 

SUBROUTINE  TMAT 

EXPLICIT  INVERSION  OF  MATRIX  T  (UNKNOWN  DISPLACEMENT  PARAMETERS) 
IMPLICIT  REAL*8( A-H, L , 0-Z) 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB , DEG , DELTA , DELTAT , E , ED , 

1  EN,E2,FLEX.PEL,PEL2,PI,R,RL,RM, RN, RNU , RNU 1 , SIGMA , TH , XEL , TIME 
COMMON  /  TMINUS/T( 20, 20) 

C 

P  =  PEL 
L  =XEL 
S=DSIN( P ) 

C=DCOS ( P ) 

A=C*P-S 
DO  10  J=  1  , 20 
DO  10  1=1,20 
10  T ( I , J ) =0 . DO 
C 

H= . 25D0/S 
T  (  1 , 2 ) =H 
T  (  1,7)  =H 
T ( 1 , 1 2 ) = -H 
T (  1  ,  17  )  =-H 
H  =  H*  R 
T  (  1,5) =H 
T (  1  ,  10) =H 
T ( 1 , 15) = -H 
T ( 1 , 20 ) =-H 
H= . 25DO/L/S 
T ( 2 , 2 ) =H 
T ( 2 , 7 ) = -H 
T ( 2 , 1 2 ) =H 
T ( 2 , 1 7 ) = -H 
H  =  H*R 
T ( 2 , 5 ) =H 
T ( 2 , 10) =-H 
T ( 2 , 1 5 ) =H 
T ( 2 , 20 ) = -H 
H=-L/8 .DO/R/S 
T ( 3 , 1 ) =H 
T ( 3 , 6 ) = -H 


' 
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2449 

2450 

245  1 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

247  1 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

248  1 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

251  1 

25  12 

2513 

2514 

25  15 

2516 

2517 

2518 

2519 

2520 

T ( 3 , 1 1 ) =H 

T ( 3 , 1 6 ) = -H 

H=-P/4 .DO/A 

T ( 3 , 2 ) =H 

T ( 3 , 7 ) =H 

T ( 3 , 1 2 ) =H 

T ( 3 , 17) =H 

H= . 25DO/A 

T ( 3 , 3 ) =H 

T ( 3 , 8 ) =H 

T ( 3 , 13) =-H 

T ( 3 , 1 8 ) =-H 

H=-P*R/4 .DO/A 

T ( 3 , 5  )  =H 

T ( 3 , 10) =H 

T ( 3 , 1 5 ) =H 

T ( 3 , 20 ) =H 

H=-P/4 .DO/L/A 

T ( 4 , 2 ) =H 

T ( 4 , 7 ) =-H 

T ( 4 ,  1  2 ) = -H 

T ( 4 ,  1  7 ) =H 

H= . 25DO/L/A 

T ( 4 , 3 ) =H 

T ( 4 , 8  )  =-H 

T ( 4 , 13) =H 

T ( 4 , 18) =-H 

H=-H*R*P 

T ( 4 , 5 ) =H 

T ( 4 , 1 0 ) = -H 

T ( 4 , 1 5 ) =-H 

T ( 4 , 20 ) =H 

H= . 25D0 

T(5,  1  )=H 

T ( 5 , 6 ) =H 

T ( 5 , 1 1 ) =H 

T ( 5 , 1 6 ) =H 

H=-R*C/4 . DO/L/S 

T ( 5 , 2 ) =H 

T ( 5 , 7 ) =-H 

T ( 5 , 1 2 ) =H 

T ( 5 , 1 7 ) =-H 

H=-R*R* ( 2 . DO*C+S*P )/8 . DO/S/L 
T ( 5 , 5 ) =H 

T( 5 . 10) =  -H 

T( 5 , 15) =H 

T( 5 , 20) =-H 

H=-P*L/ 16 . DO/R 

T ( 6 , 1 )=H 

T ( 6 , 6 ) = -H 

T ( 6 ,  11)  =H 

T ( 6 , 1 6 ) =-H 

H= - S  * ( 2 . DO+P*  P ) /8 . DO/ A 

T ( 6 , 2 ) =H 

T ( 6 , 7 ) =H 

T(6 , 12) =H 

T ( 6 , 1 7 ) =H 

H=-H*C/S 

T ( 6 , 3 ) =H 

T ( 6 , 8 ) =H 

T ( 6 ,  1  3 ) = -H 

T(6 ,  18  )  =-H 

H=-P*L/16 . DO 

T ( 6 , 4 ) =H 

T ( 6 , 9 ) = -H 

T ( 6 , 1  4 ) =H 

T ( 6 , 1 9 ) = -H 

H=-P*R*(2. DO*C  +  S  *  P ) /8 . DO/ A 

T ( 6 , 5 ) =H 

T ( 6 , 10) =H 

T ( 6 , 15) =H 

T ( 6 , 20 ) =H 

■ 
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2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

255  1 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

257  1 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 
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2588 
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H=  .  25D0/L 

T ( 7 , 1 ) =H 

T  (  7 , 6 ) =-H 

T  (  7 ,  11  )=-H 

T( 7 , 16) =H 

H  =  H/S 

T ( 8 ,  1  ) =H 

T (8 , 6 ) =-H 

T ( 8 , 11) =H 

T { 8 , 16) =-H 

H=C/4 .DO/R/S 

T  (  9 , 2  )  =  H 

T ( 9 , 7 ) =H 

T ( 9 , 1 2 ) =-H 

T ( 9 , 17) =  -H 

H= . 25D0/R 

T ( 9 , 3 ) =H 

T ( 9 , 8 ) =H 

T ( 9 , 13) =H 

T ( 9 , 1 8 ) =H 

H=-L/8 . DO/R 

T ( 9 , 4 ) =H 

T ( 9 , 9 ) = -H 

T ( 9 , 1 4 ) = -H 

T ( 9 , 1 9 ) =H 

H= A/ 4 . DO/S/P 

T ( 9 , 5 ) =H 

T ( 9 , 1 0 ) =H 

T ( 9 , 1 5 ) =-H 

T ( 9 , 20) =-H 

H=C/4 . DO/L/R/S 

T ( 1 0 , 2 ) =H 

T ( 10, 7)=-H 

T ( 10, 1 2 ) =H 

T(  10,  17  )  =  -H 

H=0. 375D0/R/L 

T ( 10, 3) =H 

T ( 10.8 )=-H 

T (  10,  1 3  )  =  -H 

T( 10, 18)=H 

H=-0 . 125D0/R 

T ( 10 , 4 ) =H 

T( 10,9) =H 

T( 10, 14)=H 

T ( 10, 1 9 ) =H 

H= A/ 4 .DO/S/L/P 

T( 10,5) =H 

T ( 10, 1 0 ) = -H 

T( 10, 15)=H 

T ( 10 , 20) =-H 

H=0. 25DO/P/R 

T( 1 1 , 1  )=H 

T (  1  1 , 6 ) =H 

T(  1 1 ,  1  1  )  =  -H 

T ( 1 1 , 1 6 ) = -H 

H=-S*P*P/12 .DO/L/A 

T ( 1 1 , 2 ) =H 

T ( 1 1 , 7 ) =-H 

T  (  1  1  .  1  2  )  = -H 

T ( 1 1 , 1 7 ) =H 

H=0 . 25DO/P/L+P* ( 3 . D0*C*P-S)/24 .DO/L/A 
T (  1  1 , 3 ) =H 
T ( 1 1 , 8 ) = -H 
T ( 1 1 , 1 3 ) =H 
T ( 1 1 . 1 8 ) =-H 
H= -P/24 . DO 
T ( 1 1 , 4 ) =H 
T (  1  1 , 9 ) =H 
T  (  1  1  ,  1  4  )  =-H 
T  (  1  1  ,  1  9 ) = -H 

H=(-S*P*P_3. D0  + A )  *R/ 12. DO/L/A 
T ( 1 1 , 5 ) =H 


' 

. 


. 


2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

26  10 

26  1  1 

2612 

2613 

2614 

2615 

26  16 

2617 

2618 

26  19 

2620 

262  1 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

264  1 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

266  1 

2662 

2663 

2664 


154 


T (  1  1 ,  1 0 ) = -H 
T  (  1  1  ,  1  5 ) = -H 
T (  1  1 , 20 ) =H 
H=-0. 25D0/L 
T ( 1 2 , 4 ) =H 
T  (  1  2 , 9 ) = -H 
T( 12, 1 4 ) = -H 
T( 12 , 19) =H 
H= . 75D0/L/L/L 
T ( 13, 3)=H 
T (  1  3 , 8 )  =  -H 
T(  13,  1  3  )  = -H 
T (  13,  1  8 ) =H 
H=-0 . 75D0/L/L 
T (  1  3 , 4 ) =H 
T (  1  3 , 9 ) =H 
T( 13, 14)=H 
T( 13, 19) =H 
H=-0. 25D0/L/R/P 
T( 14, 1 )=H 
T ( 1 4 , 6 ) = -H 
T( 14 , 1 1 ) =H 
T( 14 , 1 6 ) =-H 
H=-0. 25D0/P/L 
T (  14,4) =H 
T ( 14,9)  =-H 
T( 14, 1 4 ) =H 
T(  14,  1  9 ) = -H 
H= . 75D0/P/L/L/L 
T( 15, 3)=H 
T ( 1 5 , 8 ) = -H 
T ( 15, 13) =H 
T (  15,  1  8  )  = -H 
H= -H*L 
T (  15,4)  =H 
T ( 1 5 , 9 ) =H 
T(  15,  1  4  )  = -H 
T( 15. 19)=-H 
H=-0. 25DO/R/P 
T( 16 , 5)  =H 
T ( 16 , 10) =H 
T( 16 . 15) =-H 
T ( 16 , 20) =~H 
H  =  H/L 
T( 17,5) =H 
T( 17, 10) =-H 
T( 17 , 15) =H 
T (  1  7 , 20 )  =  -H 
H=L/8 .DO/P/R/R/R 
T( 18. 1 )=H 
T  (  1  8 , 6  )  =  -  H 
T(  18.  1  1  )=H 
T (  18,  1  6 ) = -H 
H=S/4 . DO/R/R/A 
T ( 1 8 , 2 ) =H 
T ( 18,7)  =H 
T(  18,  12)=H 
T (  18,  1  7  )  =H 
H=-C/4 .DO/R/R/A 
T( 18 , 3) =H 
T (  1 8 , 8  )  =H 
T ( 18,  1 3 ) =-H 
T ( 18, 1 8 ) = -H 
H=L/8 .DO/P/R/R 
T (  1  8 , 4 ) =H 
T ( 1 8 , 9 ) = -H 
T ( 18, 14) =H 
T ( 18, 1 9 ) = -H 
H=  S/4 . DO/R/A 
T ( 18,5) =H 
T ( 18, 10) =H 
T ( 18 , 15) =H 


2665 

2666 

2667 

2668 

2669 

2670 

267  1 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

268  1 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

27  10 

27  1  1 

2712 

27  13 

2714 

27  15 

27  16 

27  17 

27  18 

27  19 

2720 

272  1 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

273  1 

2732 

2733 

2734 

2735 

2736 


o  o  n 
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T( 18 . 20 ) =H 
H=S/4 .DO/L/R/R/A 
T( 19, 2)=H 
T ( 19,7) = -H 
T ( 19.  1  2 ) = -H 
T (  19, 1 7 ) =H 

H=(S-3 ,D0*C*P)/8 .DO/P/L/R/R/A 

T (  1 9 , 3 ) =H 

T ( 1 9 , 8 ) = -H 

T(  19 ,  13)  =H 

T ( 19, 1 8 ) =-H 

H=0 . 1 25D0/P/R/R 

T ( 1 9 , 4 ) =H 

T (  1 9 . 9 ) =H 

T ( 19, 1 4 ) = -H 

T ( 19, 1 9 ) = -H 

H  =  S/4 .DO/R/L/A 

T (  1 9 , 5 ) =H 

T ( 19, 1 0) = -H 

T( 19, 15)= -H 

T( 19. 20)=H 

H=-0 . 0625D0/P/R/R 

T( 20. 1 ) =H 

T ( 20 , 6 ) =H 

T ( 20 ,  1  1  )=-H 

T ( 20 ,  16)  = -H 

H=-S*p*p/g . 6D0/R/L/A 

T( 20, 2 ) =H 

T ( 20 , 7 ) = -H 

T ( 20 ,  1  2  )  = -H 

T ( 20 , 1 7 ) =H 

H=(5.D0*P*P*(3. DO*C  *  P-S) -18 ,D0*A)/96 . DO/R/P/L/A 
T ( 20 , 3 ) =H 
T ( 20, 8 ) =-H 
T ( 20 ,13) =H 
T ( 20 , 1 8 ) = -H 

H= ( 12 . DO- 5 ,D0*P*P)/96 . DO/P/R 
T ( 20 , 4  )  =H 
T ( 20 , 9 ) =H 
T ( 20 , 1 4 ) =-H 
T ( 20 ,  19)  =-H 

H= - ( 5 . D0*P*P*S+9 . DO* A ) /48 . DO/L/A 

T ( 20 , 5 ) =H 

T ( 20 , 10) =-H 

T ( 20 , 1 5 ) = -H 

T ( 20, 20) =H 

RETURN 

END 

SUBROUTINE  UVW(X.P) 

COMPUTATION  OF  ELEMENT  DISPLACEMENTS 
IMPLICIT  REAL*8( A-H, 0-Z) 

COMMON  /  PART  /BETA , BETA2 , CBETA , CED , DB , DEG , DELTA , DELTAT , E , ED , 
1  EN,E2,FLEX,PEL,PEL2,PI,R,RL,RM,RN, RNU , RNU 1 .SIGMA , TH, XEL , TIME 
COMMON  /  TMINUS/T( 20, 20) 

COMMON  /  DEL VW  /R V ( 20 ) , RW ( 20) 

DS=DSIN( P ) 

DC=DCOS ( P ) 

X2=X*X/2 . DO 
RX=X*R 
XP=X*P 
P2=P*P/2 . DO 
XD4=X/4 .DO 
R2=R*R 

X2CR=X2*DC/R 
X2SR=X2*DS/R 
S=X*(P2- 1 .DO) 

DO  10  1=1,20 

RV(I)=(T(1,I)+T(2,I)*X)*DS-(T(3.I)+T(4,I ) *  X ) *DC  +  T ( 6 , I ) - 
1  T(8 , I ) *X2CR+T(  1  1  , I ) *XD4  + 


■ 


156 


2737 

2738 

2739 

2740 
274  1 

2742 

2743 

2744 
END  OF 


2  R2*(T(  16,1)  *P  +  T  (  17,1)  *XP-*-T(  18,1  )  *P2+T(  1 9  ,  I  )  *  S  )  +T  (  20 ,  I  )  *  RX 
RW(I ) = - ( T ( 1 , I )+T(2, I )*X)*DC-(T(3, I ) +  T ( 4 , I )*X)*DS-T(8. I )  *  X  2  S  R  + 

1  R  * ( T ( 9 , I )+T(  10, I )  *X  )  - 

2  X2*(T(12,I)+T( 13,I)*X/3. DO+T( 14,1) *P+T ( 15 , I ) *XP/3 . DO) - 

3  R2*(T( 16, I )+T( 17,1) *X  +  T (  18 , I  )  *P  +  T(  19 , I ) i XP ) 

10  CONTINUE 

RETURN 

END 

FILE 
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Appendix  B.2 


Input  Description 


The  input  format  for  the  program  is  given  below  with  an 
example  of  the  input  for  the  pinched  cylinder  problem. 


M, 

TITLE 

RL , R , TH , E , RNU , 

NX,NP, 

IBC( 1 ) , IBC(2) , 

NI NTX , NI NTP , MINTS , 

CBETA , CED , 

INL, INL1 , INN, 

I N ( 1 ) ,  IN(INL),  (INL  values) 

IN(INLI),  ...,  IN(INN),  (INN-INL1+1  values) 

I XCH , LCH , 

R,L,  ( I XCH  lines) 

K  ,  L  ,  F  ,  (LCH  lines) 


Input  data  for  the  pinched  cylinder  problem 


TEST  WITH  THIN  PINCHED  CYLINDER 
10.35,4.953,0.01548,10500000,0.3125, 


0 , 0 , 0 , 0 , 0  , 

785398164,0,0,0,0,  0,0,0 


10,1, 

1,1, 

3.1, 

4.1, 

6.1, 

7.1  , 
8,1, 

9.1  , 
11,1, 

13.1  , 
14,1, 


33,3,0.025, 
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Explanation  of  Input  Variables 


computational  indicator 
1:  initial  program  run 
2:  restart  run 
heading  for  output 
length  of  cylinder 
radius  of  cylinder 
thickness  of  cylinder 
Young ' s  modulus 
Poisson '  s  ratio 

number  of  elements  in  the  longitudinal  direction 
number  of  elements  in  the  circumferential 
di rec t i on 

symmetry  conditions 

about  longitudinal  axes,  I BC ( 1 ) :  1=asymmetry 

2=symmet ry 

about  axes  at  mid  half,  I BC ( 2 ) :  1=asymmetry 

2=symmet ry 

(as  yet,  the  program  is  only  tested  for 
double  symmetry) 

gaussian  integration  order  for  the  x-direction 
gaussian  integration  order  for  the  0-direction 
gaussian  integration  order  for  stress  computation 
ratio  of  (applied  end  rotation  per  load  step)  / 
(angle  which  causes  classical  cylinder- 
buckling  stress) 

ratio  of  (applied  shortening  of  cylinder)  / 
(shortening  which  causes  the  lesser 
of  cylinder  or  column  buckling  stress) 

INL, INL1 , INN 

first  and  last  indices  to  read  array  IN(I) 

I N ( I )  parameter  vector. 

if  no  values  are  given,  the  description  is  in 
effect  for  a  value  of  '1'  and  not  in  effect 
for  a  value  of  ’O' 

1  one  quarter  of  the  cylinder  is  analyzed 

2  print  matrix  ' E2K ' 

3  number  of  ovalization  iterations 

4  number  of  equilibrium  iterations  per  ovalization 

5  output  of  material  properties  and  geometry 

6  output  of  boundary  condition  etc. 

7  print  matrix  'OK, FIRST' 

8  print  matrix  'OK,+LOAD' 

0  no  output  of  matrix 

1  before  VBSOLV 

2  after  VBSOLV 

3  both,  1  and  2 

9  print  load  vector 

10  print  deformation  vector 

11  element  stiffness  matrices  are  read  from  file  11 

12  nonlinear  analysis  is  performed 

13  maintain  a  specified  axial  force 


M 


TITLE 

RL 

R 

TH 

E 

RNU 

NX 

NP 

I  BC 


NINTX 

NINTP 

NINTS 

CBETA 


CED 


. 
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0  axial  force  is  not  maintained 

1  adjustments  of  all  u  -  displacements 

2  load  vector  and  boundary  condition  are 
changed 

14  tangent  stiffness  matrix  is  recalculated 
0  before  each  load  step 

1  as  0  and  before  each  first  iteration 

2  as  0  and  before  each  equilibrium  iteration 

15  calculation  of  forces  includes  nonlinear  terms 
(always  included,  if  I N ( 16)  =  1) 

16  cylinder  forces  are  calculated  from 
0  (no  calculation) 

1  equilibrium  forces 

2  stress  integration  along  boundary 

3  stress  integration  at  integration  points 

17  maximum  number  of  successful  load  steps 

18  maximum  number  of  equilibrium  iterations 

19  pivot  number  to  control  iteration 

(if  XD  <  XDN  *  10  **  IN(19),  stop  iteration), 
XD  is  the  vector  norm  of  the  first  deflection 
increment , 

XDN  is  the  vector  norm  of  an  increment  during 
an  equilibrium  iteration 

20  no  load  steps  after  decreasing  end  moment 

21  output  of  out-of -balance  forces 

22  output  of  determinants 

0:  output  of  determinant  of  altered 
stiffnes  matrix  only 
1:  compute  normalized  determinant 
2;  compute  determinant  of  unchanged 
stiffness  matrix 

23  restart:  (local  and  global  time  limit  is  set) 

24  restart:  storage  of  variables  without  time 
limits  being  reached 

25  only  stiffness  calculation 

26  if  I N ( 2 6 )  >  0,  PEL=IN(26)/10**9 
PEL=half  of  angle  subtended  by  element 
(for  non-cylinder  problems) 

27  if  IN(27)  >  0,  output  of  equilibrium  force: 

IN ( 27 ) 

28  number  of  refinements  for  buckling  load 
( IN ( 20 )  is  ignored) 

29  if  I N ( 2 9 )  >  0,  REDUCE=IN(29)/10**4 

30  boundary  condition  flag 
0:  rigid  cylinder  ends 

1:  include  donnell-stretch  in  nonlinear 
boundary  conditions 

2:  iterate  to  cross-section  of  mid-length 
of  cylinder 

31  inclusion  of  nonlinear  strain  parts  for  the 
computation  of  nonlinear  stiffness  matrices 
0:  simplest  expression  for  nonlinear  strains 
1:  extended  expression  for  nonlinear  strains 
2:  full  expression  for  nonlinear  strains 
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32 

calculation  of 

st  r 

esses  at 

the  cir 

cumf erence 

0: 

no  calc 

ulat  i 

on 

1  : 

stresse 

s  at 

the 

boundar i 

es  of  c 

y 1 i nder 

2: 

st resse 

sat 

the 

nearest 

integra 

t  i  on 

points 

for  the 

longi tudi 

nal  dir 

ec  t i on 

33 

number  of 

point 

s  f 

or  stress 

calcul 

at  ion 

34 

to 

50:  not 

used 

I XCH 

Number 

of  cha 

nges 

of 

boundary 

condi t i 

ons 

LCH 

Number 

of  cha 

nges 

of 

loads 

K ,  L 

K: 

deg 

ree  of 

freedom 

to  be  cha 

nged , 

L: 

new 

degree 

of  f 

reedom 

0: 

displac 

ement 

re 

st r  icted 

to  a  va 

lue  of  0 

1  : 

di splac 

ement 

i  s 

free,  load  may 

be 

presc  r i 

bed 

2: 

displac 

ement 

wi 

th  value 

other  than  0  is 

presc  r i 

bed 

K,L,F  K:  degree  of  freedom  to  be  changed, 

L:  description  whether  load  or  displacement 
is  to  be  discribed, 
and  whether  it  is  held  constant  or 
increased  with  each  load  step 
3:  constant  load  is  prescribed 
4:  additional  load  per  load  step 
5:  constant  displacement  is  specified 
6:  additional  displacement  per  load  step 
F:  value  of  prescribed  load  or  displcament 


The  necessary  data  to  restart  the  program  is  given  below. 


2, 

NCHI N , NED 

I  ,J 

EDNEW 

DBNEW 

REDUCE 


NDB , NREDUC ,0,0, 


( NCHI N  lines) 
(if  NED*0) , 
(if  NDB*0) , 
(if  NREDUC^O ) 


Hereby  are 


NCHI  N 
NED 
NDB 
I  ,  J 

REDUCE 


number  of  changes  for  parameter  vector  "IN" 
factor  for  input  variable  "CED" 
factor  for  input  varialbe  "CBETA" 
parameter  IN("I")  is  given  the  value  "J" 
factor  with  which  the  load  step  size 
is  reduced  if  a  negativ  determinant  is 
detected 


The  following  files  are  needed  during  the  computation 


5  input  data 

6  error  diagnosis 

7  input  echo,  results 

8  temporary  storage  for  global  stiffness  matrix 

9  temporary  storage  for  format  construction 

10  storage  for  restart 

11  storage  of  stiffness  matrices 

12  temporary  storage  during  step  size  iteration 

13  temporary  storage  of  reference  vectors 


